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CHAPTER  I 


INTRODUCTION 

Progress  in  digital  technology  has  led  to  the  development  of 
shared  information  among  electronic  subsystems.  For  example,  a 
number  of  digital  processors  may  be  interconnected  via  one  common 
communication  channel.  Recent  advances  in  microprocessors  have 
made  distributed  processing  a  reality  in  many  practical  applications: 
manufacturing,  computing,  integrated  avionics  systems,  etc.  One 
technique  for  transferring  information  between  several  devices  on 
one  common  channel  is  known  as  time  division  multiplexing;  the  channel 
over  which  the  information  is  transferred  is  called  a  multiplex  data 
bus.  [i] 

The  multiplex  system  is  a  collection  of  electronic  devices  which 
send  or  receive  signals  for  encoding  and/or  decoding;  also,  the  system 
is  capable  of  storing  for  future  dispersal  messages  which  arrive  simul¬ 
taneously.  The  components  of  the  multiplex  system  are,  (1)  the  bus 
controller,  (?)  remote  terminals,  (3)  subsystems  which  may  have  em¬ 
bedded  remote  terminals,  and  (4)  the  data  bus.  See  Figure  1-1.  The 
data  bus  conveys  information  between  the  bus  controller  and  the  remote 
terminals  (RT).  The  number  of  RT's  cn  the  data  bus  depends  on  the  com¬ 
plexity  of  the  desired  system.  The  bus  controller  initiates  information 
transfers  on  the  data  bus  and  is  an  integral  part  of  the  multiplex  sys¬ 
tem.  A  subsystem  is  a  functional  unit  which  receives  data  transfer 
service  from  the  data  bus.  Frequently  it  is  necessary  to  have  more  than 
one  data  bus;  a  data  bus  which  has  more  than  one  path  between  the  sub¬ 
systems  is  called  a  redundant  data  bus.  Figure  1-1  illustrates  a 
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redundant  data  bus  architecture. 

Discrete  event  simulation  is  a  viable  means  of  modeling  digital 
multiplex  systems.  Questions  concerning  data  bus  utilization  and/or 
bus  traffic  loading  should  be  answered  prior  to  the  hardware  develop¬ 
ment  of  the  system.  A  simulation  model  may  be  used  in  the  preliminary 
design  and  accuracy  testing  of  a  digital  multiplex  system.  One  such 
simulation  model  which  has  been  developed  for  this  purpose  is  the 
Multiplex  System  Simulator  (MUXSIM)  [V]  .  In  building  the  model  for 
MUXSIM,  FORTRAN  IV  and  the  GASP  IV  simulation  languages  were  used; 
however,  other  simulation  languages  such  as  GPSS  II  or  SIMSCRIPT  II 
may  be  used.  In  selecting  the  simulation  language  to  use  in  modeling 
a  multiplex  system,  care  should  be  taken  that  the  simulation  language 
matches  the  host  computer  system. 

An  overview  of  several  current  simulation  languages  is  presented 
in  Chapter  II.  In  Chapter  III,  the  general  views  of  MUXSIM  and  the 
analysis  of  the  dynamic  part  of  the  MUXSIM  system  are  described  in 
detail.  The  purpose  of  the  dynamic  MUXSIM  (MUXDA  and  MUXDB)  is  to 
model  the  time-variant  or  stochastic  aspects  of  the  system  and  to 
obtain  the  simulation  results  on  such  system  parameters  as  queue  size, 
time  delay,  system  failure,  etc.  In  Chapter  IV,  a  programming  example 
of  a  single  queue,  single  bus  is  presented  in  FORTRAN  IV,  and  three 
different  simulation  languages,  (GASP  IV,  SIMSCRIPT  II,  and  GPSS  II). 
Chapter  V  is  a  comparative  study  of  the  simulation  languages  based  on 
the  results  of  Chapter  IV.  Recommendations  regarding  the  choice  of  a 
language  for  multiplex  simulation  are  included, f 
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CHAPTER  II 
SIMULATION  LANGUAGE 

Simulation  is  a  good  approach  to  analysis  in  the  design  and 
operation  of  a  complex  system.  It  is  necessary  for  the  modern  en¬ 
gineer  to  be  familiar  with  the  techniques  of  simulation. 

Large  scale  system  modeling,  using  similation  is  very  dependent 
on  the  digital  computer;  therefore,  one  who  is  interested  in  sim¬ 
ulation  modeling  should  have  a  basic  knowledge  of  computer  science. 
In  this  project,  it  is  necessary  to  know  FORTRAN  IV  as  a  requirement 
for  learning  and  working  with  the  GASP  IV  simulation  language. 

The  definition  of  simulation:  Simulation  is  the  process  of 
designing  a  model  of  a  real  system  and  conducting  experiments  with 
this  model  for  the  purpose  of  either  understanding  the  behavior  of 
the  system  or  evaluating  various  strategies  (within  the  limits  im¬ 
posed  by  criterion  or  set  of  criteria)  for  the  operation  of  the 
system  £3] . 

In  simulation  modeling,  the  engineer  seeks  to  describe  a  system 
and  its  behavior.  For  this  purpose,  theories  or  hypothesis  must  be 
constructed.  These  theories  are  used  to  predict  future  events. 

The  greatest  advantage  of  simulation  is  its  powerful  education 
and  training  application,  because  the  development  and  use  of  sim¬ 
ulation  allows  a  means  to  find  the  problems  which  may  happen  in  the 
real  world;  this,  in  turn,  helps  in  understanding  and  learning  how 
to  handle  the  difficulties  or  problems.  It  should  be  pointed  out 
that  the  development  of  a  good  simulation  model  may  require  a  lot 
of  time  and  expense. 
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In  addition,  simulation  modeling  is  a  type  of  art  work,  and  therefore 
requires  a  talented  engineer.  Furthermore,  the  complexity  of  the  sys¬ 
tem  may  be  such  that  it  is  not  amenable  to  simulation.  Thus,  it  is 
possible  that  the  results  of  a  simulation  do  not  always  fit  in  the 
real  world.  Another  reason  for  the  difference  between  simulation  re¬ 
sults  and  real  world  is  that  we  cannot  create  all  the  conditions  in 
our  simulation  model;  therefore,  when  possible,  the  results  of  a  sim¬ 
ulation  should  be  compared  with  the  direct  experiment  in  the  real  life 
systems.  If  there  is  too  much  difference  in  the  results,  the  model 
should  be  modified  to  overcome  many  difficulties  in  obtaining  a  good 
match  between  the  model  and  actual  conditions. 

Is  it  always  possible  to  perform  a  direct  experiment?  The  answer 
is  not  always  yes,  because  the  direct  experiment  may  be  too  costly  and 
time  consuming,  or  it  may  be  too  difficult  to  maintain  the  same  con¬ 
dition  for  each  run  of  the  experiment.  Also,  it  may  not  be  possible 
to  create  many  types  of  alternatives  in  the  real  life.  Furthermore, 
the  simulation  result  is  numerical.  These  numbers  may  be  truncated 
several  times  during  the  simulation  process  itself;  therefore,  there 
is  always  danger  of  obtaining  an  incorrect  result  or  a  slightly 
different  result  from  the  real  world. 
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GENERAL  VIEWS  OF  SIMSCRIPT  II 

SIMSCRIPT  II  is  a  very  impressive  and  flexible  computer  pro¬ 
gramming  language.  It  can  be  used  for  general  programming  pro¬ 
blems  [5].  SIMSCRIPT  II  is  divided  into  five  language  levels, 
which  are  as  follows: 

1.  Level  One  or  Elementary  User's  Language 

This  is  designed  to  introduce  programming  concepts  if  one  is  not 
familiar  with  computer  programming.  This  level  is  a  simple  teaching 
language. 

2.  Level  Two  or  Level  of  FORTRAN 

This  is  almost  like  the  FORTRAN  language,  but  is  different  in  specific 
features.  For  example,  all  variables  are  not  real  unless  otherwise 
defined;  SQRT  (square  root)  and  other  FORTRAN  functions  are  not  allowed 
to  be  used  as  variable  names. 

3.  Level  Three  or  Level  of  PL/I  or  ALGOL 

This  level  is  almost  comparable  to  PL/I  or  ALGOL,  but  as  in  level  two, 
they  have  many  differences. 

4.  Level  Four  or  Entity-Attribute-Set-Level 

This  level  contains  the  entity-attribute-set  of  this  language.  The 
simulation  program  in  this  level  should  have  a  preamble,  and  every 
v  statement  which  appears  in  the  preamble  should  define  the  existence 
of  a  class  of  entities.  An  entity  can  belong  to  other  entities, 
have  sets  of  other  entities,  and  may  have  attributes. 

5.  Level  Five  or  Simulation-Oriented  Feature 

Levels  one  through  four  present  a  general  programming  language,  but 
level  five  is  different,  in  that  it  provides  concepts  and  programming 
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features  for  discrete-event  simulation.  Discrete-event  simulation 
handles  models  whose  entities  interact  with  one  another  at  discrete 
times,  instead  of  continuously.  This  level  deals  with  concepts  and 
statements  made  to  help  in  modeling  systems. 

General  Structure  of  Simulation  Programming  in  SIMSCRIPT  II 

Every  EVENT  must  be  defined  in  the  preamble,  scheduled  by  the 
modeler,  and  must  be  supported  by  an  event  routine.  For  example, 
for  simulation  of  an  arrival  and  departure,  one  should  define  arrival 
and  departure  in  the  preamble.  In  the  main  program,  the  arrival 
should  be  scheduled  and  after  it,  an  event  arrival  must  be  written. 

A  schedule  of  departures  should  be  in  the  event  arrival  and  departures 
should  be  supported  by  an  event  departure.  Figure  2-1  illustrates 
the  general  layout  of  the  above  example. 


PREAMBLE 


EVENT  NOTICES  INCLUDE  ARRIVAL  AND  DEPARTURE 
END 
MAIN 

SCHEDULE  AN  ARRIVAL 


EVENT  ARRIVAL 


SCHEDULE  A  DEPARTURE 


RETURN 

END 

EVENT  DEPARTURE 


RETURN 

END 

Figure  ?-l  General  Layout  for  the  Simulation  of  an  Arrival  and  De 


parture. 


V 
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GENERAL  VIEWS  OF  GASP  IV 

GASP  IV  was  developed  by  Dr.  A.  Alan  B.  Pritsker  at  Purdue 
University  and  is  based  on  GASP  II,  which  was  developed  at  Arizona 
State  University,  which  in  turn  was  based  on  the  original  GASP 
developed  at  U.  S.  Steel  by  Mr.  Phillip  J.  Kiviat.  [^J 

GASP  is  an  acronym  for  General  Activity  Simulation  program. 

GASP  IV  is  a  specialized  language  for  constructing  simulation  models 
of  computer  systems.  It  is  a  powerful  and  a  well -documented  simulation 
language.  GASP  IV  is  a  FORTRAN  based  simulation  language  and  does 
not  require  a  separate  compiling  system.  It  is  easy  to  maintain  on 
any  machine  which  has  a  FORTRAN  IV  compiler.  This  simulation  language 
is  used  for  discrete,  continuous,  and  combined  discrete/continuous 
modeling  and  is  the  only  simulation  language  with  this  capability. 

It  is  easy  to  modify  and  extend  to  meet  the  needs  of  particular 
applications.  GASP  IV  has  the  capabilities  for  event  control,  to 
update  system  variables,  to  initialize  the  state  of  system,  and  to 
collect  the  statistical  value. 

A  simulation  program  written  in  GASP  IV  is  divided  into  two  parts, 
a  user  part  and  a  GASP  IV  part.  The  user  part  consists  of  the  main 
program  and  subroutine.  In  the  main  program,  all  non-GASP  variables 
that  remain  constant  for  all  simulation  runs  should  be  initialized. 

Some  of  the  most  used  GASP  subroutines  are  described  below: 

Subroutine  GASP  is  called  via  the  main  program.  The  general  layout 
of  the  main  program  is  shown  in  Figure  2-2. 

Subroutine  INTCL  is  used  to  initialize  non-GASP  variables  at  the 


start  of  each  run. 


C  MAIN  PROGRAM  - - - 

DIMENSION  NSET  (NNSET) 

C  NNSET  to  be  specified 
COMMON  (GASP  VARIABLES) 

COMMON  (NON-GASP  VARIABLES) 

EQUIVALENCE  (NSET  (1),  QSET  (1)) 

C  Initialization  of  non-GASP  variables 

C  Initialization  of  Card  Rt_,der  Value,  NCRDR  and  Printer  Value 
C  NPRNT. 

CALL  GASP 

C  If  more  runs  are  desired,  insert  GO  TO  statement  to  either 
C  reinitialize  non-GASP  variables  or  to  CALL  GASP  again. 


Figure  2-2  The  General  Layout  of  the  Main  Program  for  GASP  IV. 


The  user  written  subroutine  EVNTS  (IX)  is  called  to  pick  up  the 
event  code  IX  and  to  call  the  appropriate  event  code.  The  general 
form  event  code  is  given  in  Figure  2-3. 


SUBROUTINE  EVNTS  (IX) 

DIMENSION  NSET  (1) 

COMMON  QSET  (1) 

COMMON  (GASP  VARIABLES) 

COMMON  (NON-GASP  VARIABLES) 

EQUIVALENCE  (NSET  (1),  QSET  (1)) 

C  For  Single  Queue  and  Single  Server 
C  Simulation  program  which  is  written  in  this  thesis 
C  IX  has  been  specified  as  follows: 

C  If  IX  is  20,  Event  Arrival  will  occur. 

C  If  IX  is  30,  Event  Begin  Service  will  occur. 

C  If  IX  is  40,  Event  Finish  Service  will  occur. 

GO  TO  (20,  30,  40),  IX 
20  CALL  ARR 
RETURN 

30  CALL  BEGS 
RETURN 

40  CALL  FINS 
RETURN 
END 


Figure  2-3  Layout  of  Subroutine  EVNTS. 
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Subroutine  OTPUT  produces  some  information  in  addition  to  the  stan¬ 
dard  GASP  summary  report.  It  can  be  used  as  an  end  of  simulation 
event. 

The  GASP  part  of  the  simulation  program  consists  of  the  subprogram 
that  prepares  for  the  following  functions:  data  collection,  statistics 
computation  and  reporting,  monitoring  and  error  reporting,  random 
deviate  generation,  data  storage  and  retrieval  data,  and  event 
initialization  and  mode  controller.  Figure  2-4  shows  the  flow  chart 
of  the  GASP  program. 

Figure  2-5  presents  a  diagram  showing  the  relationship  of  the 
GASP  IV  subprograms  and  the  user  written  subprograms.  The  lines  in 
Figure  2-5  represent  one  subprogram  calling  another.  Each  of  the 
user  written  subprograms  can  call  any  of  the  GASP  IV  subprograms. 

Lines  indicating  such  calls  are  problem  specific  and  are  not  shown 
in  the  figure.  Subprogram  names,  having  both  a  solid  box  and  a 
dashed  box  around  them,  are  usually  written  by  the  user.  GASP  IV 
gives  a  "dummy"  version  if  no  user  version  is  written. 

GASP  Input  Data  Cards 

The  GASP  program  has  standard  input  data  cards  besides  the  user 
i n r  j t  cards.  The  user  input  data  card  is  placed  before  or  after, 
or  both  before  and  after  the  GASP  input  data  card,  depending  on  the 
type  of  program. 

There  are  twelve  types  of  input  data  cards  as  described  below: 

Data  Card  Type  I 

Data  card  type  I  is  used  for  recording  the  name  of  the  programmer, 
the  number  of  the  project,  the  date  and  number  of  the  simulation  run. 
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Figure  2-4  Functional  Flow  Chart  of  a  GASP  IV  Program  (Continued) 
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Figure  2-5  Relation  of  GASP  IV  and  user  subprograms.  [Y] 
□  GASP  IV  subprogram 


*-"*  1  Dummy  subprogram 

[ _ '  User  programs  required 

(  Al — *  I  ft  ]  Subprogram  A  calls  Subprogram  B 


The  format  is  (3A4,  3X,  515,  1511)  for  type  I  data  cards. 

Data  Card  Type  II 

Data  card  type  II  is  used  if  the  control  variable  (LLSUP  (2))  is 
less  than  one.  It  consists  of  information  about  subroutine  COLCT, 
TIMST,  and  TIMSA,  number  of  histograms,  number  of  parameter  sets, 
number  of  plots  or  tables,  number  of  random  streams,  maximum  allow¬ 
able  number  of  entries  in  the  file  storgae  area  (NSET/QSET),  max¬ 
imum  number  of  attributes  per  entry  in  NSET/QSET,  number  of  files 
in  NSET/QSET,  dimension  of  NSET/QSET,  number  of  derivative  equations, 
number  of  equations  defining  in  state  level  and  number  of  state 
condition  flags  (LFLAG)  employed.  The  format  is  (1515). 

Data  Card  Type  III 

Input  card  type  III  is  used  only  if  the  number  of  sets  of  sta¬ 
tistics  collected  by  subprogram  COLCT  (Nf'CLT)  is  greater  than  zero 
and  the  control  variable  (LLSUP  (3))  is  less  than  one.  The  format 
of  this  card  is  (5X,  15,  2A4)  and  it  contains  labels  associated 
with  variables  used  in  COLCT. 

Data  Card  Type  IV 

Input  data  card  type  IV  is  used  only  if  the  number  of  sets  of 
statistics  collected  by  subprograms  TIMST  and  TIMSA  is  greater  than 
zero  and  the  control  variable  (LLSUP  (4))  is  less  than  one.  The 
format  of  this  card  is  (5X,  15,  2A4,  E10.0)  and  it  consists  of  a 
label  for  TIHST,  TIMSA  and  the  initial  value  for  the  time  persistent 
variabl e . 

Data  Card  Type  V 

This  input  data  card  is  used  only  if  the  number  of  histograms 
(NNHIS )  is  greater  than  zero  and  the  control  variable  (LLSUP  (5)) 
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is  less  than  one.  The  format  of  this  type  of  card  is  (5X,  15,  2A4, 

7X,  15,  2E10.0).  It  consists  of  a  label  of  histogram,  number  of 
cells  of  each  histogram,  upper  limit  of  the  first  cell  of  the  his¬ 
togram,  and  the  width  of  a  cell  for  histogram. 

Data  Card  Type  VI 

Data  input  card  type  VI  is  divided  into  two  types.  Type  A  and 
Type  B. 

Type  A  is  used  only  if  the  number  of  plots  and/or  tables  (NNPLT) 
is  greater  than  zero  and  the  control  variable  (LLSUP  (6))  is  less 
than  one.  The  format  used  is  (5X,  15,  2A4,  7X,  315,  E10.0).  This 
card  gives  information  about  the  label  of  plot,  index  of  tape,  num¬ 
ber  of  variables  for  the  table  or  plot,  keys  for  specifying  the  type 
of  table  or  plot,  and  intervals  between  successive  plot  points. 

Type  B  is  used  only  if  IJ  (Index)  is  less  than  the  number  of 
variables  to  be  plotted  or  tabled.  The  format  used  is  (5X,  15,  A1 , 

2A4,  IX,  215,  2E10.0).  This  card  gives  plot  symbols,  labels  for 
plots,  keys  for  specifying  lower  and  upper  limits  and  values  associated 
with  lower  and  upper  limits  of  plot  ordinates. 

Data  Card  Type  VII 

This  type  of  card  is  used  only  if  the  number  of  files  in  the  file 
storage  area  (NSET)  is  greater  than  zero  and  the  control  variable 
(LLSUP  (7))  is  less  than  one.  The  format  is  (1415).  This  card  gives 
information  about  ranking  attributes  for  files. 

Data  Card  Type  VIII 

This  type  of  card  is  used  only  if  the  number  of  files  (NNFIL)  in 
the  file  storage  area  (NSET)  is  greater  than  zero  and  the  control 
variable  (LLSUP  (8))  is  less  than  one.  The  format  of  this  card  is 
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(1415).  This  card  consists  of  keys  for  priority  systems  to  be 
used  in  the  files. 

Data  Card  Type  IX 

This  type  of  card  is  used  only  if  the  number  of  state  and 
derivative  equasions  (NNEQT)  is  greater  than  zero  and  the  control 
variable  (LLSUP  (9))  is  less  than  one.  The  format  of  this  card  is 
(215,  5E10.0).  This  card  has  information  about  accuracy,  mimimum 
and  maximum  step  size  permitted,  and  keys  between  communication 
points. 

Data  Card  Type  X 

This  type  of  card  is  used  only  if  the  number  of  parameter  sets 
(NNPRM)  is  greater  than  zero  and  the  control  variable  (LLSUP  (10)) 
is  less  than  one.  The  format  of  this  card  is  (5X,  15,  4E10.0).  This 
data  card  has  information  about  parameter  set  numbers  and  parameter 
numbers . 

Data  Card  Type  XI 

Data  card  type  XI  is  used  only  if  the  control  variable  (LLSUP  (11)) 
is  less  than  one.  The  format  of  this  card  is  (415,  2E10.0,  15,  (615)). 
This  data  card  yields  information  about  stopping  the  simulation,  whether 
statistical  array  should  be  cleared  during  initialization,  and  the 
initialization  of  the  random  number  seed. 

Data  Card  Type  XII 

This  type  of  card  is  used  only  if  the  number  of  files  in  NSET 
(NNFIL)  is  greater  than  zero  and  the  control  variable  (LLSUP  (12)) 
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is  less  than  one.  The  format  is  (5X,  15,  (6E10.0)).  This  data  card 
gives  information  about  the  file  number  for  attributes.  If  this  number 
is  equal  to  zero,  it  shows  the  end  of  data  card  type  XII. 

Data  Card  Type  0 

Data  card  type  0  is  used  only  if  the  remaining  number  of  runs 
(NNRNS)  is  greater  than  one  and  the  indicator  used  in  DATIN  for 
initialization  ( 1 1 CRD )  is  equal  to  zero.  The  format  of  this  card 
is  (1511,  15).  This  card  is  used  for  multiple  runs  and  it  has  a 
different  value  for  different  programs. 
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GENERAL  VIEWS  OF  GPSS  II  [7] 

GPSS  II  is  an  acronym  of  General  Purpose  Systems  Simulator  II. 

This  program  language  is  one  of  the  easiest  simulation  languages. 

It  is  not  as  flexible  as  GASP  IV  or  other  advanced  simulation 
languages,  because  of  a  limitation  on  the  number  of  blocks,  storage 
areas,  and  transaction  in  systems. 

In  order  for  a  system  to  be  simulated,  it  must  be  reducible  to 
a  series  of  operations  performed  on  units  of  traffic.  The  units  of 
traffic  upon  which  the  system  operates  relies  on  the  nature  of  the 
system.  Traffic  may  be  work  items  in  a  production  line,  electrical 
pulses  in  a  digital  circuit,  or  messages  in  a  communications  system. 
Transactions  are  the  units  of  traffic  that  are  made  and  used  by  the 
simulator.  These  transactions  have  certain  properties  which  conform 
to  characteristics  of  traffic  in  a  system.  Each  transaction  is 
associated  with  a  priority,  which  is  one  integer  between  zero  and 
seven.  When  competing  for  service,  the  transaction  with  the 
numerically  higher  priority  will  be  the  first  to  be  processed.  If 
transactions  have  the  same  priority,  the  one  that  has  been  delayed 
longer  will  be  selected  first. 

The  program  supplies  block  types,  which  present  operations  in  a 
model  of  the  system  equivalent  to  the  actions  happening  in  the  real 
system.  Each  block  specifies  a  number  of  clock  units  that  the  trans¬ 
actions  are  to  spend  in  that  block.  The  number  may  be  made  to  depend 
upon  a  number  of  factors  within  the  system  itself,  or  it  may  be  con¬ 
stant  or  computed  from  statistical  distribution.  Every  block  specifies 
the  next  step  to  which  a  transaction  will  be  sent  when  its  computed 
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time  interval  is  completed. 

The  user  gives  each  block  an  identifying  number  to  designate 
the  path  of  flow.  The  fundamental  properties  of  some  of  these 
block  types  are  described  and  all  the  operations  which  may  be 
performed  are  discussed.  Before  the  properties  of  these  blocks 
can  be  discussed,  it  is  necessary  to  specify  the  format  of  the 
block  types. 

The  card  fields  of  the  GPSS  II  blocks  are  as  follows: 


Field  Col umns 

LOCATION  2-6 

NAME  7-18 

X  19-24 

Y  25-30 

Z  31-36 

SELECTION  MODE  37-42 

NEXT  BLOCK  A  43-48 

NEXT  BLOCK  B  49-54 

MEAN  TIME  55-60 

MODIFIER  61-66 

COMMENTS  67-80 


In  these  fields,  all  numbers  should  be  left  justified. 

Description  of  GPSS  II  Blocks 

ADVANCE 

Purpose:  In  this  block,  transaction  waits  while  the  clock  advances. 
Operand:  This  block  has  no  operand. 

Condition  for  entry  acceptance:  It  does  not  refuse  entry  under  any 
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condition. 


ASSIGN 

Purpose:  This  block  modifies  the  value  of  the  parameter. 

Operand:  X  field  gives  the  parameter  numbers.  Y  field  specifies 
system  variables. 

Condition  for  entry  acceptance:  It  never  refuses  entry. 

ASSEMBLY 

Purpose:  This  block  is  used  to  terminate  the  number  of  assembly 
sets  (assembly  sets  are  original  and  duplicated  blocks). 

Operand:  X  field  specifies  the  assembly  count,  which  must  be  at 
least  two. 

Condition  for  entry  acceptance:  It  always  accepts  entry. 

COMPARE 

Purpose:  This  block  tests  the  relationship  between  two  system 
variabl es . 

Operand:  X  field  gives  the  system  variable  that  is  going  to  be 
tested.  Y  field  is  specified  by  Mnemonics  (kind  of  relationship). 
Z  field  gives  the  system  variable  that  is  going  to  be  tested. 
Condition  for  entry  acceptance:  It  refuses  entry  whenever  the 
relationship  is  false. 

ENTER 

Purpose:  This  block  places  one  or  more  units  into  storage. 
Operand:  X  field  specifies  the  storage  number.  Y  field  specifies 
the  number  of  units  to  be  stored. 

Condition  for  entry  acceptance:  It  never  refuses  entry. 

GENERATE 

Purpose:  The  GENERATE  block  creates  transaction. 
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Operand:  X  field  gives  the  time  of  the  first  transaction.  Y  field 
specifies  the  limit  count.  7.  field  gives  the  priority  of  a  central 
transaction.  Mean  time  should  be  given  for  the  interval  between  the 
creation  of  two  transactions.  The  modifier  can  be  specified  two  ways, 
first,  by  a  constant  value  which  gives  a  uniform  random  variable. 
Second,  by  a  function  which  gives  the  form  of  distribution. 

Condition  for  entry  acceptance:  It  never  accepts  entry. 

GATE 

Purpose:  This  block  tests  the  status  of  some  entities. 

Operand:  X  field  is  given  by  Nmemonic,  followed  by  a  number 
(facil ity  number) . 

Condition  for  entry  acceptance:  It  refuses  entry  whenever  indicated 
status  is  false. 

INDEX 

Purpose:  The  INDEX  block  is  used  to  compute  a  transaction  parameter 
value  for  temporary  use.  A  constant  is  added  to  the  specified  para¬ 
meter  and  stores  the  result  in  Parameter  1. 

Operand:  X  field  gives  a  parameter  number.  Y  field  gives  the  constant 
value. 

Condition  for  entry  acceptance:  It  never  refuses  entry. 

LOGIC  * 

Purpose:  This  block  changes  the  status  of  the  LOGIC  switch. 

Operand:  X  field  is  specified  by  S(set)  or  R(reset),  plus  number. 
Condition  for  entry  acceptance:  It  never  refuses  entry. 

* 

Initially  LOGIC  switches  are  reset  (0). 
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LEAVE 

Purpose:  The  LEAVE  block  takes  a  unit  out  of  storage. 

Operand:  X  field  specifies  the  storage  number.  Y  field  gives  the 
number  of  units  to  be  taken  out. 

Condition  for  entry  acceptance:  It  never  refuses  entry. 

LOOP 

Purpose:  This  block  causes  a  transaction  to  cycle  through  a  set  of 
blocks  several  times. 

Operand:  X  field  gives  a  parameter  number. 

Condition  for  entry  acceptance:  It  never  refuses  entry. 

MARK 

Purpose:  This  block  marks  the  transaction  with  the  current  clock  time. 
Operand:  X  field  is  either  blank  or  contains  a  parameter  number.  When 
using  a  parameter  number,  the  parameter  number  should  be  marked. 
Condition  for  entry  acceptance:  It  never  refuses  entry. 

MATCH 

Purpose:  The  MATCH  block  is  used  to  synchronize  the  movement  of  the 
assembly  set. 

Operand:  X  field  specifies  the  block  number  of  a  MATCH  block. 

Condition  for  entry  acceptance:  It  always  accepts  entry. 

PREEMPT 

Purpose:  This  block  attempts  the  higher  level  usage  of  facility. 
Operand:  X  field  gives  the  facility  number. 

Condition  for  entry  acceptance:  It  refuses  entry  if  the  facility  has 
already  been  preempted. 
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PRIORITY 

Purpose:  This  block  is  used  to  set  PRIORITY  of  entry  transactions. 
Operand:  X  field  is  used  to  specify  the  value  of  PRIORITY.  Y  field 
is  either  blank  or  buffer. 

Condition  for  entry  acceptance:  It  never  refuses  entry. 

PRINT 

Purpose:  This  block  is  used  to  print  out  some  expected  value. 

Operand:  X  field  specifies  the  first  location  of  SAVEX  to  be  printed. 
Y  field  specifies  the  last  location  of  SAVEX  to  be  printed. 

Condition  for  entry  acceptance:  It  never  refuses  entry. 

QUEUE 

Purpose:  It  records  one  or  more  entries  into  a  Queue. 

Operand:  X  field  gives  the  QUEUE  number.  Y  field  specifies  the 
number  to  be  added  into  QUEUE. 

Condition  for  entry  acceptance:  It  never  refuses  entry. 

RELEASE 

Purpose:  The  RELEASE  block  is  used  to  end  service  on  facility. 
Operand:  X  field  specifies  the  number  of  facility. 

Condition  for  entry  acceptance:  It  always  refuses  entry. 

RETURN 

Purpose:  This  block  is  used  to  end  the  preemption. 

Operand:  X  field  gives  the  facility  number, 

Condition  for  entry  acceptance:  It  never  refuses  entry. 

SAVEX 

Purpose:  This  block  allows  the  user  to  gather  and  print  information 
from  the  block  diagram,  and  transmit  information  from  one  transaction 
to  another. 


Operand:  X  field  of  this  block  specifies  a  SAVEX  storage  location. 
Y  field  gives  the  system  variable  to  be  used  in  the  modification. 
Condition  for  entry  acceptance:  It  always  accepts  entry. 
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SEIZE 

Purpose:  The  SEIZE  block  begins  service  on  a  facility. 

Operand  :  X  field  specifies  the  number  of  facility. 

Condition  for  entry  acceptance:  It  refuses  entry  if  it  has  already 
seized . 

SPLIT 

Purpose:  This  block  creates  a  duplication  of  each  transaction  that 
enters  the  block. 

Operand:  There  is  no  operand. 

Condition  for  entry  acceptance:  It  always  accepts  entry. 

TABULATE 

Purpose:  This  block  gives  statistics  on  the  simulation  program. 
Operand:  X  field  specifies  the  number  of  TABULATE  blocks. 

Condition  for  entry  acceptance:  It  always  accepts  entry. 

TERMINATE 

Purpose:  The  TERMINATE  block  removes  transactions  from  the  block 
diagram. 

Operand:  X  field  should  be  left  blank  or  specified  by  the  letter  P. 
If  R  is  used  in  the  X  field,  the  termination  counter  would  be  reduced 
by  one. 

Condition  for  entry  acceptance:  It  does  not  refuse  entry  under  any 


condition . 
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GENERAL  VIEWS  OF  THE  ADA  LANGUAGE 

The  ADA  language  was  designed  by  a  team  led  by  Jean  D.  Tchbiah, 
It  has  been  chosen  as  the  name  for  the  common  language,  honoring 
Ada  Augusta,  the  daughter  of  the  poet,  Lord  Byron,  and  Babbage's 
programmer  [V], 

The  ADA  language  was  designed  with  three  concerns  in  mind: 
a  recognition  of  the  importance  of  program  dependability  and 
maintenance,  a  concern  for  programming  as  a  human  activity,  and 
efficiency. 

The  ADA  language  is  a  modern  algorithmic  language  which  con- 

★ 

tains  the  usual  control  structures,  and  is  able  to  define  types 
and  subprograms.  ADA  is  also  capable  of  serving  the  need  for 
modularity,  whereby  data,  types,  and  subprograms  can  be  packaged. 

Any  program  in  the  ADA  language  is  a  series  of  higher  level  pro¬ 
gram  units,  with  the  capability  of  compiling  separately. 

The  program  units  can  be  a  subprogram  which  is  an  executable 
algorithm.  Package  modules  are  collections  of  entities  or  task 
modules  which  are  concurrent  calculations.  The  subprogram, 
package  modules,  and  task  modules  are  described  in  more  detail 
as  follows: 

Subprogram 

A  subprogram  is  an  executable  unit  which  is  the  basic  unit  for 
expressing  an  algorithm.  A  subprogram  can  have  parameters,  which 

★ 

A  type  characterizes  a  set  of  values  and  a  set  of  operations  that 
apply  to  those  values . 


29 


show  its  connections  to  other  program  units.  There  are  two  kinds 
of  subprograms  in  the  ADA  language:  (1)  procedures  and  (2)  func¬ 
tions.  These  are  described  below: 

(1)  Procedure  Subprogram 

A  procedure  subprogram  is  the  logical  equivalent  to  a  series  of 
actions.  For  example,  it  may  read  in  data,  update  variables,  or 
produce  some  output. 

(2)  Function  Subprogram 

A  function  subprogram  is  the  logical  equivalent  to  a  mathematical 
function  for  computing  a  value. 

Package  Modules 

A  package  module  is  composed  of  fundamental  units  to  define  a 
collection  of  logically  related  entities. 

Task  Modules 

A  task  module  is  almost  like  a  package  module,  but  with  more 
capability  for  parallel  processing.  A  task  can  be  carried  out  on 
multiple  processors  or  with  interleaved  execution  on  a  single  pro¬ 
cessor,  the  same  as  procedure  entries  can  have  a  parameter  showing 
the  transmission  of  data  between  tasks. 

Fach  program  unit  usually  consists  of  two  parts: 

(1)  a  declarative  part  and  (2)  a  sequence  of  statements. 

These  are  described  as  follows: 

(1)  A  declarative  part  defines  the  logical  entities  to  be 
used  in  the  program  unit  and  associates  names  with  declared 
entities.  A  name  can  be  a  variable,  a  constant,  or  a  type. 

(2)  A  sequence  of  statements  defines  the  execution  of  the 
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program  unit.  A  statement  describes  the  type  of  action  to  be  taken. 

An  assignment  statement  indicates  that  the  current  value  of  a  variable 
should  be  replaced  by  a  new  value. 

Exceptional  Situation  in  the  ADA  Language 

In  the  ADA  language,  sometimes  the  computer  reaches  the  point 
where  normal  program  execution  can  not  continue.  For  example, 
it  may  be  needed  to  access  the  value  of  an  uninitialized  variable. 

To  overcome  this  situation,  the  statements  of  a  program  unit  can 
be  textually  followed  by  an  exception  handler  describing  the  action 
to  be  taken  if  an  exceptional  situation  arises. 


i 


1 


V 


31 


GENERAL  VIEWS  OF  ECSS  II  [9] 

ECSS  II,  or  Extendable  Computer  System  Simulator  II,  is  called 
"ex-two".  This  program  language  has  been  constructed  for  simulation 
models  of  a  computer-based  system;  it  is  an  extension  of  the  general 
purpose  simulation  language  SIMSCRIPT  II,  and  that  language  is  im¬ 
plied  as  a  subset.  It  gives  a  wide  selection  of  statements  and  data 
structures  for  describing  common  computer  hardware  structures,  soft¬ 
ware  operations,  and  work  load  characteristics  in  a  natural  and 
straight  forward  notation.  In  general,  the  ECSS  II  program  includes 
a  preamble,  a  system  description  section,  a  work  load  description, 
automatic  event  routines,  and  SIMSCRIPT  routines.  These  character¬ 
istics  are  described  below: 

(1)  Preamble 

The  preamble  statement  is  used  only  if  defining  new  global 
variables,  functions,  and  entities. 

(2)  System  Description  Section 

The  section  which  describes  the  system  of  an  ECSS  II  program 
defines  the  simulated  resources  in  an  ECSS  II  model.  Declarative 
statements  in  this  part  give  the  name  and  number  of  every  device, 
specify  device  characteristics  and  capabilities,  show  how  devices 
are  interconnected,  and  describe  paths  through  which  simulated 
data  may  pass, 

(3)  Work  Load  Description  Section 

This  part  of  the  ECSS  II  program  defines  routines  which  are 
called  processes  and  may  be  used  to  characterize  the  load  on  a 
computer  system's  resources.  The  load  is  determined  by  the 
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environment  and  behavior  of  the  program  that  comes  to  be  executed 
as  a  result  of  environmental  demands. 

(4)  Automatic  Event  Routines 

This  section  of  the  program  is  generally  used  for  simulation 
monitoring  and  control  and  for  representing  actions  that  happen 
outside  the  model  itself. 

(5)  SIMSCRIPT  II  Routines 

SIMSCRIPT  II  routines,  formed  by  a  translator,  consists  of  the 
initialization  routine,  the  translation  of  automatic  event  routines, 
the  translation  of  process  routines,  and  process  routines. 

Processi ng 

Producing  an  executable  ECSS  program  is  a  three-step  procedure: 
translation,  compilation,  and  editing.  This  is  illustrated  in 
Figure  2-6. 

Simulation  Reports 

ECSS  produces  three  types  of  outputs:  system  display  output, 
statistical  output,  and  tracing  output.  These  are  described  as 
follows: 

System  Display 

This  report  is  created  by  the  SHOW  SYSTEM  statement.  It  pro¬ 
duces  the  name  of  each  device  group  and  specifies  whether  it  is  a 
device  or  a  class,  and  shows  characteristics  of  the  device  groups 
and  the  state  of  model  at  any  point  during  simulation. 

Statistics 

ECSS  II  can  provide  statistics  on  model  performance  at  any 
particular  interval.  ECSS  II  automatically  collects  data  on  the 


Data  Data 


Figure  2-6  Schematic  of  ECSS  program  processing.  [9] 
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activity  of  each  device  and  contents  of  queues  and  is  produced  ry 
the  SHOW  STATISTICS  statement. 

Tracing 

This  part  of  output  gives  details  about  interactions  within 
a  computer  system  and  traces  each  step  of  the  simulation  model. 
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CHAPTER  III 

GENERAL  IDEAS  OF  MUXSIM 

MUXSIM  is  the  abbreviation  for  Multiplex  Simulation  [2J  [lo]  [llj  . 
It  consists  of  four  major  subsystems:  the  utility,  the  ststic,  the 
dynamic,  and  the  executive.  These  subsystems  are  then  divided  into 
programs,  subprograms,  and  subroutines  or  modules.  Most  of  these 
are  written  in  FORTRAN  and  some  are  in  GASP.  The  executive  uses  the 
T0PS-10  control  statement.  Figure  3-1  illustrates  the  MUXSIM  System 
Data  Flow  Chart. 

The  four  major  parts  of  MUXSIM  are  described  as  follows: 

(1)  Utility  Subsystem 

The  utility  subsystem  is  a  module  of  MUXSIM  which  manages  the 
signal  flow  list,  withdrawing  the  simulator  inputs  from  it.  This 
subsystem  is  also  the  management  system  for  MUXSIM.  In  checking 
the  Equipment  Complement  for  completeness,  signal  deficiencies, 
and  flagging  any  equipment,  the  utility  subsystem  uses  the  information 
from  the  signal  flow  list. 

(2)  Static  Subsystem 

The  static  subsystem  deals  with  all  the  signal  information, 
grouping,  and  handling,  such  as  remote  terminal  assignments,  word 
maps,  message  maps,  as  well  as  fixed  format  bus  loading  and  utilization 
computation . 

(3)  Dynamic  Subsystem 

The  dynamic  subsystem,  consisting  of  two  discrete-event  modules, 
handles  the  random  messages,  scheduling  tasks,  and  computes  the  dynamic 
bus  loading  and  time  statistics.  It  is  called  "dynamic"  because 
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stochastic  events  characterizing  such  phenomena  as  multiplex  system 
failure,  hus  noise,  and  time  variable  data  transfer  requirements  are 
considered.  This  system  uses  the  simulation  language  GASP  IV  as  a 
component . 

(4)  Executive  Subsystem 

The  executive  subsystem  supplies  the  interface  between  the  user 
and  the  other  three  subsystems:  the  utility,  the  static,  and  the 
dynamic.  It  has  an  interactive  section  with  optional  coaching  to 
assist  the  user  and  to  make  learning  the  simulator  operation  easier. 
Figure  3-2  shows  the  MUXSIM  Modular  Software  Structure  and  their 
relation  to  one  another. 


Figure  3-2  MUXSIM  Modular  Software  Structure. 
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The  Purpose  of  the  MUXSIM  System 

The  purpose  of  the  flUXSIM  system  is  to  prepare  the  design  and 
design  accuracy  of  a  digital  system,  used  by  those  interested  in 
carrying  out  the  system  design  of  a  digital  information  transfer/ 
multiplex  system.  MUXSIM  directs  questions  of  data  bus  utilization 
and/or  bus  traffic  loading. 

The  MUXSIM  programs  serve  to  combine  specific  analysis  and 
prototype  hardware.  MUXSIM  provides  a  means  of  interacting  parts 
of  the  detailed  analysis  (such  as  updating  rate  requirements, 
sampling  requirements,  data  buffering  requirements,  bus  data 
requirements,  processing  delay  requirements)  for  numerous  point- 
to-point  signaling  into  logical  requirements  which  can  be  confirmed 
for  compatible  operation  by  a  computer,  before  attempting  a  hard¬ 
ware  development  program. 

MUXSIM  is  devised  to  be  applicable  to  a  set  of  multiplex  system 
designer's  questions  that  cannot  be  promptly  answered  by  other 
ava i 1 abl e  means . 
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DESCRIPTION  OF  THE  MUX DA  PROGRAM 
Demand  Access  Transfer 

This  model  basically  deals  with  a  demand  access  information 
transfer  over  the  bus.  The  demand  access  messages  are  transmitted 
after  the  fixed  message  requirements  are  finished  and  until  either 
the  demand  messages  are  used  up  or  time  has  come  for  the  start  of 
the  next  fixed  message  transmission  sequence.  The  central  con¬ 
troller  should  know  the  length  of  every  transmission  and  prevent 
the  transmission  of  a  demand  message  if  it  will  interfere  with 
the  start  of  a  fixed  message. 

Shown  in  Figure  3-3  is  the  demand  message  multiplex  system 
schematic  representation. 

Statement  of  the  Problem 

MUXDA  represents  an  information  transfer  system  which  has  a 
fixed  format  data  transfer  foreground  and  an  interrupt  enabled 
demand  access  first-in,  first-out  background.  This  system  is 
expected  to  reduce  bus  loading  and  the  delay  in  access  of  the 
sporadic  data. 

Some  of  the  assumptions  made  to  allow  the  simulation  to  cycle 
faster  are:  error  and  failure-free  environment,  interrupt  system 
which  allows  the  Central  Control  to  initiate  command/response  re¬ 
quests  for  the  demand  access  data,  foreground  with  fetch  messages 
on  a  fixed  telemetry  format  command/response  basis,  and  foreground- 
background  mode  similar  to  hybrid  analog-digital  real-time  operating 
system.  Other  assumptions  are  that  the  foreground  transmission  has 
no  sporadic  motion,  and  the  computed  bus  load  for  each  transfer  is 
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igure  3-3  Demand  Message  Multiplex  System  Schematic  Representation. 
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available  from  the  static  subsystem  in  a  lumped  sequence  for  each 
fundamental  update  interval.  A  further  assumption  is  that  the 
command  response  for  this  demand  access  data  is  initiated  by  central. 
Central  knows  the  length  of  data  transmission  for  each  demand  access 
message  and  does  not  initiate  a  demand  message  transfer  which  could 
interfere  with  the  next  foreground  transmission. 

Simulation  Objective 

The  objective  of  this  simulation  is  to  determine  bus  resource 
utilization  impact  on  the  technique  of  using  demand  access  background 
transfer  for  signals  of  sporadic  nature. 

GASP  IV  Simulation  Structure  and  Program  Variables  for  MUXDA 

In  this  problem,  there  were  two  files  used.  Table  3-1  gives 
the  definition  of  the  files  and  their  associated  characteristics 
for  this  simulation.  File  1  is  the  event  file  as  per  GASP  IV 
and  File  2  stores  the  demand  message  arrival.  Table  3-2  defines 
the  nori-GASP  variables. 

Main  Program,  Subroutine  INTLC  and  Subroutine  EVfjTS  Description 
Main  Program 

The  Main  Program  establishes  th0  card  reader  (NCPDR)  and  line 
printer  (NPRNT)  values  and  subroutine  GASP  is  called. 

In  this  program,  a  temporary  disk  file  is  not  used  and  plot 
data  is  stored  in  the  QSFT.  The  MUXSIM  executive  system  is  not 
used,  therefore  it  is  not  necessary  to  use  subroutines  CHAIN, 

PESTOR,  and  GETCOM. 
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ATTRIBUTES 

FILE  1 

FILE  2 

File  Definition 

Events 

Arrived 

demand  messaae  queue 

ATRIB  (1) 

Event  Time 

Message  Length 

(?) 

Event  type  =  100*I+J 
where  I  =  event  type 

J  =  sub  type 

Demand  message  Number 

(3) 

Message  length  (if  event 
type  is  200  otherwise  it 
is  a  don't  care 
si tuation) 

Time  of  arrival  in 
wait  queue 

I  =  Event  Type 

100  -  FUI  time  start 
200  -  Start  of  Fill  free  time 
300  -  End  of  Demand  Message 
400  -  Demand  Message  arrival 

J  =  Sub  Type 


1 


100 

FUI  Number  (1.MFU1S) 

200 

FUI  Number  (l.f'FUIS) 

300 

Demand  Message  Number 

(1  ,NDM) 

400 

Demand  Message  Number 

(l.HDH) 

Table  3-1 


Definition  of  GASP  Files. 
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Variabl e 

Def  i  nl  t1or\ 

DM  (I,J) 

Demand  message  parameter  definition 

J  =  Demand  message  number  (l.NOM) 

I  =  Demand  message  parameter,  where: 

1  =  mean  time  between  demand  message 

occurrence 

2  =  Maximum  A  of  uniform  distribution 

about  mean 

3  =  Demand  message  length 

DMSENT  (1) 

Sum  of  demand  message  lengths  sent  for  a  particular 
FUI,  where  I  is  the  FUI  number 

I  =  (l.NFUIS) 

FUI 

Fundamental  Update  Interval  for  data  transmission 
on  bus 

FUIT 

The  time  of  occurrence  of  the  last  FUI  numbered  1 

FUI FX  (I) 

Sum  of  the  Fixed  Message  lengths  sent  for  a 
particular  FUI,  where  I  is  the  FUI  number 

I  =  (l.NFUIS) 

FUINXT 

The  next  FUI  start  time 

FUIWAT  (I) 

Data  bus  idle  time  per  FUI,  computed  by  subtracting 
time  of  end  of  last  Demand  Message  sent  from  start 
of  next  FUI.  I  is  the  FUI  number  (l.NFUIS). 

MODE 

MODE  =  1  is  FIFO; 

MODE  =  2  is  largest  to  FIT  in  interval  first. 

11  DM 

Maximum  quantity  of  demand  messages  which  the  system 
must  process. 

•'EUI 

NFUI  is  the  integer  comment  FUI  number. 

11  FUI  3 

1  Maximum  number  of  FUI  intervals.  This  is  the 
number  of  minor  frame  cycles  per  major  frame. 

1 

Table  3-?  Definition  of  non-GASP  Variables. 
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Subroutine  INTLC 

Subroutine  INTLC  is  called  via  subroutine  DATIN,  in  order  to 
read  in  the  simulation  data  cards  and  to  set  up  the  initial  conditions 
from  the  input  data  cards  or  algebraic  statements. 

In  this  program,  subroutine  INTLC  reads  in  Card  Type  I,  Card 
Type  II,  and  Card  Type  III.  Card  Type  I  defines  the  FUI  duration 
and  run  mode.  Card  Type  II  specifies  the  FUI  fixed  message  sequence 
duration,  and  Card  Type  III  gives  the  demand  message.  All  non-GASP 
user  input  data  are  printed  out  to  make  checking  easier. 

Subroutine  EVNTS 

Subroutine  EVNTS  sends  control  to  one  of  the  four  user  written 
subroutines:  FUIT,  FUIFRE,  ENDDM,  and  DMARIV.  The  events  of  the 
simulation,  in  the  order  of  their  event  code  are: 

100-Start  of  fundamental  update  interval  time  (FUIT) 

200-End  of  fixed  message  transmission  on  bus  (FUIFRE) 

300-End  of  demand  message  transmission  on  bus  ( ENDDM ) 

400-Arrival  of  demand  message  to  the  queue  (DMARIV) 

Subroutine  FUIT 

Subroutine  FUIT  performs  the  following  functions: 

(1)  In  order  to  prevent  round-off  errors  from  accumulating  and 
destroying  the  results,  FUIT  establishes  the  beginning  of  a  major 
frame . 

(2)  In  order  to  demonstrate  the  validity  of  operation,  FUIT  prints 
out  the  following  for  the  first  100  intervals:  the  number  of  messages 
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in  the  queue,  the  length  of  demand  messages  transmitted  in  a 
fundamental  update  interval  as  a  percent  of  the  time  available 
for  demand  message  transmission,  and  the  bus  idle  time  as  a 
percent  of  the  time  available  for  demand  message  transmission. 

(3)  For  each  FUI,  a  histogram  of  the  length  of  the  demand 
message  transmission  sequence  is  formed. 

(4)  By  calling  subroutine  NXTFUI,  the  next  FUI  is  scheduled. 

(5)  This  FUI  is  scheduled  for  the  start  of  the  FUI  free  time. 

Subroutine  FUI FRE  (NF) 

The  end  of  message  transfer  for  FUI  is  established  in  sub¬ 
routine  FUIFRE,  which  performs  the  following  functions: 

(1)  This  subroutine  processes  the  end  of  a  message  transmission 
and  schedules  the  next, 

(2)  It  establishes  if  there  are  any  messages  to  be  transmitted 
and/or  the  time  remaining  to  do  so. 

(3)  The  routine  tests  to  see  if  a  message  can  be  transmitted  within 
the  remaining  time  in  FUI. 

(4)  This  subroutine  is  designed  to  branch  a  specified  mode  and 
select  the  message  for  proper  transmission  according  to  that  mode. 

(5)  FUIFRE  brings  the  total  length  of  demand  messages  up-to-date 
that  are  being  sent  during  that  FUI;  also,  it  updates  the  FUI  free 
time  to  the  present  remaining  time. 

Subroutine  ENDOW  (NM) 

The  start  of  a  demand  message  transfer  for  FUI  is  established 
in  subroutine  ENDDM,  which  performs  the  following  functions: 
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(1)  ENDDM  performs  the  end  of  the  demand  message  arrival  processing 
and  establishes  a  histogram. 

(2)  It  programs  the  arrival  of  FUIFRE  while  pointing  out  the  end  of 
the  message  transmission  in  that  FUI. 

Subroutine  DMARIV  (ND) 

The  arrival  of  a  demand  message  on  the  queue  is  established  in 
subroutine  DMARIV,  which  performs  the  following  functions: 

(1)  DMARIV  calls  for  the  scheduling  of  the  next  demand  message 
arrival  and  processes  the  arrival  of  the  demand  message. 

(2)  It  files  the  current  demand  message  on  the  queue  where  it  waits 
for  transmission  on  the  data  bus. 

Subroutine  NXTFUI  (I, WHEN) 

Subroutine  NXTFUI  performs  only  one  function;  that  is,  the 
scheduling  of  the  next  FUI  arrival. 

I  is  the  index  of  the  FUI  interval  number.  WHEN  is  the  index  of 
the  next  start  time  for  this  FUI  interval. 

Subroutine  NXTDM  (I) 

Subroutine  NXTDM  performs  only  one  function;  it  schedules  the 
arrival  of  the  next  demand  message. 

I  is  the  index  of  the  Demand  Message  number. 


47 


Simulation  Report 

The  MUXDA  outputs  are  given  in  the  following  section.  Figure 
3-4  shows  the  input  data  echo  check,  provided  by  subroutine  DATIN. 

Figure  3-5  presents  the  printout  of  the  files  that  are  obtained  at 
the  end  of  subroutine  DATIN.  After  the  GASP  IV  summary  report,  there 
are  twenty  histograms  for  the  first  run,  which  give  the  observed,  the 
relative,  and  the  cumulative  frequencies  for  each  cell.  For  example, 
histogram  number  two  shows  that  thirty-one  percent  (31ft)  of  the  message 
has  delay  time  less  than  or  equal  to  .03  of  the  time  unit.  The  length 
of  the  delay  time  is  from  the  message  arrival  to  the  end  of  the  trans¬ 
fer.  Histogram  number  eleven  shows  that  ninety  five  percent  (95ft)  of 
the  length  of  the  demand  message  is  less  than  or  equal  to  .15  of  the 
time  unit. 

In  Figure  3-6,  three  variables  versus  time  are  plotted.  These  are 
as  follows: 

(1)  The  number  of  messages  in  the  queue,  versus  time 

(2)  The  length  of  demand  messages  transmitted  in  a  fundamental  update 
interval  as  a  percent  of  the  interval  time  available  for  demand  message 
transmission,  versus  time 

(3)  The  bus  idle  time  as  a  percent  of  the  time  available  for  demand 
message  transmission,  versus  time 

This  plot  is  expanded  and  is  shown  in  Figures  3-7,  3-R,  and  3-9, 

Figure  3-10  shows  the  output  for  MUXDA  in  the  second  run.  Figures  3-12, 
3-13,  and  3-14  are  expanded  plots  of  Figure  3-11, 


u*tt  <•  /  10/  ->(}  #uk  sum  I  o  1 

l  l  sm';(,0000ii000060'j/'0  t»ir  Iv  wfusios 


OOC OOOOOOOOOOOOOOOOO  OOOO 

ooc  oc  oooooooc  oc  oc  ooc  oooc 

OOO  OOOOO  OOOOOOO  OO  OOO  o  o  oc 

COO  OO  <_  OC  OOOO*— OO  OO  OOO  OC  oc 

*-  •—  —  v-.  w">  w'  %.  •>  k/'  w'"'  iC  *  •  v/~> 


oc  o  o  o  c.  c  c  o  c  <a  -3  c  o  c.  o  o  co  o  — 

i  )  ■  j  3  di  i  i : z : 

zzrrzzzzxxxzxzxrzzxx  oc.  x  c 


oooo  o 
c  coo  >w 
ooooo 
oooc  c 
OOOO  o 

COOC  o 


OOO  O C  O  GO O O  O  o  o  O  O OOOO 

OOO OOOOC OOOOOOO OOOOO  OOO 

_>oo  CO  ^JOOO OOOOOOOC  DOO  OOO 

OOOOC  OCOOOC'OOOOOOoOC  OOC 

«— «-  ~  «—  ■“'-✓'w'l/'/ii/'i/'i/'i/W'O  OOO 


OOOOO  C  OOOOOO  OOOOOOOC  — <c 

—  —  O  O  -•-*  -i-i  O  C  - 

x  z  xxrxxxxxxxxxxxxxxxxx  _,c 

X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  XX  X  _jQ 


CC  OOOOO  OOO  OOO  OOOO  OOOOC  «- 


zzzzzzxzzzzzzzzzzzzz 

ZZZZZZZZZZZZZZ.ZZZZZZ 


OOOOO 
OOOOO 
'■  OOOOC 

£  i/l  k/'  N. 

C.  C  OOC  o 
r  oooo  o 


OOOOO 
«  OOOOO 
OOOOO 
•  OO^OOi/' 
O  •*  ''*'*—  "■» 
OOOOO 


a ooooo 

OOOOO 
>1  O  OOOO 
OOOOO 
0*^000 
-"'O'*—  O 


— ■  07-  *  1  l  J  J  i  1  J  Jo 

•—  ‘  -  >/■■  -O^v.  *—  . 


.  •-  C5  3J  ■— 


•  —  —  —  I~^r^  o  — 


~  ~  3 

O  — oooooooooo 
rv<  oooooooooo 

^  ^  -i-iOO  OOOOOOO  o 

"s  o  -ooooo^c''  x:  > 

—  O  Jt-*'0^-0>00000 

r*  V  -.OOOOOO  COOC 

•  . . 

c*  O 

o 

•  *-  o 


Oiw  oo  coco  OO  C  CO  o  o  ooooo  oooo  — 

ZZZZZZZZZZZZZZZZZZZZ  Z  Z  Z  Z 


O  O  C  X  O  C  DOOOC  — a 


:xxxxxxxrxxxxxx: 


i  jo  i.  .r 

Z  o~ W  o  » 

X  -  —  W-»  V-  —  — 

~  w  -  z> 

—  i.  T  -  —  —  —*■ 


49 


« 

« 

*“ 

II 

o 

< 

o 

UJ 

o 

cr 

o 

< 

u* 

O 

< 

*- 

INI 

cr 

UJ 

O 

£ 

►— 

— 

</) 

CL 

cr 

UJ 

u- 

CL 

_J 

£ 

s; 

—• 

ooo 

VjO 

ooo 

““ 

200 

*“ 

200 

oo 

2 

oo 

£ 

Z 

—JO  O 

UJ 

uuoo 

— 4  •  • 

*—  oooooooooo  ooooo 

o 

zoooooooooo  ooooo 

»— < 

oo 

ooooooo ooooooooo 

u. 

w 

WOOOOOO ooooooooo 

•“ • 

U» 

u. 

a 

OC 

O  •»  m 

UJ 

O  il  il 

►— 

£ 

-J 

£. 

z 

►-  3  -U 

u> 

UJ 

O  O  ►— 

DOk 

o 

oz  o 

020 

o 

>-o 

cr 

o 

2 

2 

O 

►— 

cr 

X 

^lOfOKiKIfOKirOKil'O^OKIfOiOri 

cr 

«✓> 

LU 

Q» 

ooooo ooooo  ooooo 

CL 

X 

UJ 

£ 

o ooooooooo ooooo 

O 

*—  rufcTVf^irO^/  r-k/-\  ONCUOO 

mm 

z 

OOOOOOOOOOOOOO*- 

£ 

a. 

ID 

IjO 

£ 

< 

— * 

O 

X- 

« 

< 

« 

£ 

'-'-OOOOOOOOOOOO 

ooooooooo  ooooo 
•  !♦♦♦♦♦♦♦♦♦♦♦♦ 
O^i/'oOO  ooooooooo 
oo*-  o^o^o^oooooo 
0*—f^  o»^ooo^oooooo 

0^»QO  LAO^qQO 


>1  »  "  M  M  U  II  il  II  l|  II  ||  II  II  II 


aaaaaiaiiiaaaaccaact 


*u4  uJ  mJ  M  UJ  uJ  ^  >-fcJ  UJ  UJ  UJ  UJ 


Figure  3-5  File  Printout  at  Time  0  for  MUX DA  in  First  Run. 


MAXIMUM  NUMBER  of  ENTRIES  IN  FILE  STORAGE  AREA 


50 


«  ac 

•  <^4 

pr 

O  M 


Or-  *0 

♦  a-  > c 

♦  o*— 

oo^ 

oo*- 

*— 

o  •  • 

r\j 

o  •  • 

o 

O  ENjlNi  r\j 

r-x- 

a 

a. 

uJfOfO 

ujfO  rvj 

X  OO 

xoo 

t  ♦  ♦ 

-O 

s  ♦  ♦ 

m 

OOO 

w 

uO 

ooo 

w 

t-O 

2  oo 

—  •— 

200 

*—  r\jr\j 

OO 

2  O 

oo 

X- 

200 

UJ  *—  *“ 

L^uJ  uJ 

UJ  i 

uj*-0 

l/I  UJ  <uJ 

UJ  ♦  ♦ 

_J  •  • 

— 1  -J  -A 

►“OOOOOOOOOOOOOOOO 

— >  •  ■ 

*—  uno 

— • 

*—  — «  — 

20000000000000000 

-u 

u-  — 

20  o  . 

u- 

<U.  M. 

O oooooooooooooooo 

u. 

<t  U-  W 

oo  o  — - 

—  2 

^•oooooooooooooooo 

I-  2 

u-»o  O  "C 

l-fc- 

^ZO  2 

w 

uo  20  2 

.  .  <1) 

O  ii  i» 

~  — 

Uj 

O  II  II 

_  __ 

UJ 

X. 

a:  ►— 

_J 

X 

ac  *— 

-J 

Ocr  <  cr 

— « 

O  Ct  <  £T 

—  4-F 

oo*- 

W  UJ  — •  Uj 

u. 

OO*- 

u.  uj  »— <  uj 

u.  C 

023 

X  >X 

02  0 

X  >  X 

O 

*-  •-  O 

os:  ws: 

—  a 

OSujE 

CJ 

2 

oo  o  o 

2 

O  OOO 

«2  2 

— » 

—  2  2 

Lf ) 

a 

ex  O 

IT 

a  ^ 

*—  T-  1 

a. 

lljuj  O:  r 

oooooooooooooooo 

a. 

UJ  UJ  Ct  £1 

oo  00 

xo<  o 

♦  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

0.  O 

♦  ♦  Q 

<  os: 

OOOOOOOOOOOOOOOO 

•a  o  s: 

oo  £. 

-ja  2  ~* 

oo  ZJ 

tu<X 

OOOOOOOOOOOOOOOO 

£u<x 

OO  cn 

-•>*-< 

'/lA  >r 

»-< 

i“<  i/i£. 

.  .  ^ 

pOfOAOFOKlAOfOAnfO  fOKiF^  rOKIfOK' 

oooooooooooooooo 

♦  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


0000»“f  F-fVJFO  'JkOO\COOo 

oooooooooooooooo 

OOOOOOOOOOOOOOOO 


Ajf\j 

OO 
I  I 
OO 

oo 

OO 

o  o 


II  M  II  (I  II  It  It  II  II  II  II  II  II  ||  II  II 


II 


11 


aaraaaaoL  act  it  a:  ex  crccctct 


72?7Z2Z*T2Z2.!^Z2i T 


2  2- 


MinofcKAii  n  uns  (  a 


51 


--O  O  OCX3  oooooooo 

t  *  —  ~«—o oooooooo 

9*  0  0*^000000000 


<o  o OOO OOOOOOOO 
—  —  o-*t>  oooooooo 

oo».oooooOooo 


« a  oooooooooooo 

•»»  •''WNOOOOOOOOO 

•a  o oo o oooooooo 


Figure  3-5  (Continued). 


igure  3-5  (Continusd), 


M| \ IOC***  «U"8I • 


oooooooooooc 
■o  o  o>eoo  oooo-o 
o—  -»  ««ooooooo 


''W  -» o ooo o «? oo 
n  j  v  o-ooooo^oo 
-*00  0-0  o ooo ooo 


wO  •.•.0-K00000900 
l«  ^  o  o  oo  ooo  oo 
3«  >4  «*o  ooooooooe 


-^vjv'OOOOOOOO 
00-4  •- 


1 


i 


F i gure 


*>£ 


I 


Figure  3-5  (Continued). 


MAXI  MUM  NUMBER  Of  ENTRIES  IN  FILE  STORAGE  AREA 


57 


«  OQ 

«  <\J 

fry 

O  ll 


■*-> 

c: 

o 

<_> 


Klr-O 

♦  o  <1 

OO'J' 

o  •  • 

O 


a 

WKiK', 

coo 

300 

200 

OO 


i/I 


OO  UJ  uj 


^  V1202 

O  H  ll  . 

x:  ac  r- 

3  — •  O  a:  x  cr 

30 1—  u.  uj 

02  0  £D  >  CD 

»-*“  o  OH  UJ  H 

2  0  30  3 

—  ~2  2 

os  ac  o 

C-  uj  uj  Cr  3l 

0-0X3 
<  O  H 
ujq:  z 
£  ujX  X 

*-  < 


un 


2000 
UJ  I  I  I 
►—OOO 
2000 
ooooo 

lT\  U~\  U~\  ly-v  lTSLO  W'l  iTlU'M/'l 


o  oo ooooo ooooo  ooo 

♦  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


o  oo ooooo ooooo  ooo 

lT\  r\i*—  J  ONCOOO»- 

O  OOOO  OOOOO  OOO  Or-o 


ru 

LD 

OOOO 

1 

♦  ON 

co 

OO  *- 

Cb 

r\i 

O  •  • 

oojrursj 

3 

y—  ^ 

cn 

cr 

ujKiru 
30  0 

% 

Ll. 

£♦  ♦ 

l/> 

30  CD 

LJ 

!/*> 

200 

>— « 

Njru  r\jrsj 

OO 

►- 

20000 

uj* —  O 

JO  UJ  UJ 

UJ  ♦  ♦  ♦  ♦ 

3  •  • 

—  3  3 

sj  OOO 

«— • 

— » 

20  0  00 

u. 

XU.  u. 

OO  o  oo 

*-  2 

ujO  O  OO 

U. 

COZ  02 

•  •  •  t 

O  ll  H 

H>-CH 

UJ 

sc 

<X  l~ 

•J 

►“3*^ 

oa:  <  ac 

M 

30»- 

U-  UJ  *-«  UJ 

U. 

02  a 

CD  >  CD 

»“>“  C3 

Dljjl 

2 

030  3 

u« 

•-«  2  2 

cr 

cr  o 

r-  y-t— 

CL 

uj  uj  cr  H 

OOOO 

CL  OX  3 

♦  ♦  ♦  ♦ 

<fl£ 

OOOO 

UJ  QC  2  -• 

OOOO 

2  uj  <  x 

OOOO 

—«;>*-< 

(NifO>jr\j 

•  «  »  i 

o  ooooo oooo ooo  ooo 

♦  ♦  •  ♦  ♦♦♦♦•*  ♦  ♦♦  +  ♦♦♦ 

Ooo»-f- aoo o 


fNj  <%J 

oooo 

lilt 

oooo 

oooo 

oooo 

inNo**n 

•  •  •  • 


II  U  M  II  l|  (I  M  II  ll  M  11  II  ||  II  |(  u 


*“  T'vjrO  *4ir»'ON-tQ(>Ot“f\jf|0-4fcA<3 


T“  OjfOsJ 


acoccra:crCEa:cx;crcrcrtt.crocQ:cc 


-^■^^222232222222 

uJ  U  uj  uJ  W  >J  Uj  u_j  uj  UJ  UJ  uj  UJ  UJ 


a:  cl  cr  o: 

I—  •—  I—  *- 

2  2  22 


SR 


•• T  *  8  L  £  NUMBER  1 
BUK  KUM8£»  1 


i"E 

SUE 

USE  D 

f  B  EE 

.1000-01 

.2000-01 

.  1  ooo-cc 

.9000-00 

.1100-01 

.  occc 

.6250-00 

.3750-00 

.120 0-01 

.2000-01 

.9000-00 

.  1000-0  0 

.'300-01 

. 3  0CC-C1 

.9500-00 

.  5000-0  ' 

.1-00*01 

.4000*01 

.6000-00 

.4000-00 

.'300-01 

.9000-01 

.8737-00 

.  1262  -0  0 

. 1 600-0 1 

.  0000 

.0000 

.  1C00-0 1 

.1700-0  1 

. -  000  -0  1 

.6129-00 

.3871-00 

.1600-01 

.2000-01 

.5435-0' 

.9-57-00 

.1900-01 

.  3  000-01 

•626--GC 

.3736-00 

.0000-0 1 

.4000-01 

.7400-00 

.  2600-00 

.0100-01 

.  0000 

.6250-00 

.3750-00 

.0200-01 

.  0000 

.7667-00 

.2333-00 

.0300*01 
.2-00  —  *1 

.2000-01 

.9500-00 

.5000-01 

.  1  000  -0  1 

.6000-00 

.4000-00 

.2500-01 

.6000-0' 

.9263-00 

.7368-01 

.2600-01 

.2000-01 

.0000 

.1000-01 

.2700-01 

.5000*01 

.-409-00 

.5591-00 

.2300-01 

.3000*0' 

.3478-00 

.  6522-0  0 

.2900-01 

.3000*01 

.2747-00 

.7252-00 

.3000-01 

.2000-01 

.9200-00 

.8000-0 ' 

.3100-01 

.  0000 

.7500-00 

.2500-00 

.3200-01 

.  0000 

.9000-00 

.1000-00 

.3300-01 

.2000-01 

.8000-00 

.2000-00 

.3-00-01 

.3000-01 

.9000-00 

. 1000-00 

.3500-01 

.5000-01 

.6000-00 

.4000-00 

.2600-01 

. 1 000-01 

.1170-00 

.8830-00 

.3700-01 

.2000-01 

.4946-00 

.5054-00 

.3600-01 

.6000-01 

.3261-00 

.6729-00 

.3900-01 

. 1 000-01 

.2967-00 

.7023-00 

.4000-01 

.5000-01 

.9600-00 

.4000-0 1 

.4100-01 

.2000-01 

.62  5  0-  00 

.3750-00 

.4200-01 

.2000-01 

.5667-00 

.1323-00 

.4300-01 

.3000-01 

.1000-01 

.2=80-05 

.  44  00-0  1 

.3000  -01 

. 1 000-01 

.2=e0-05 

.4500-01 

.7000-01 

.6000*  00 

.4000-00 

. 4&C  0-n 1 

.3000-01 

.  3-04-00 

.65=6-00 

.4700-01 

.1000*01 

.1075-00 

.5925-00 

.4800-01 

.4000-01 

.630**00 

. 3696-00 

.4900-01 

. 1000-01 

.5-95-01 

.9451 -00 

. 5000-01 

.3000-01 

.9600-00 

.4000-01 

.5100-01 

.1000*01 

.9750-00 

.2500-01 

.  52  00  -0  1 

.3000-01 

.9667-00 

.2333-01 

.5300-01 

.4000*01 

.9500-00 

.  5000-0  1 

.5-00-01 

.5000-0' 

.6000-00 

.4000-00 

.5500-01 

.  1  000-02 

.6000-00 

.3=36*00 

.4000-00 

.5600-01 

.  0000 

.6064-00 

.5700-01 

.4000-01 

.5376-01 

.9462-00 

.5600-01 

.2000*01 

.7391-00 

.2609-00 

.5900*01 

.4000-0’ 

.  5  4  95-0  1 

.9451-00 

.6000*0' 

.1000*01 
.  0000 

.9200-00 

.5000-00 

.8000-0  1 

.6100-01 

.5000-00 

.6200-01 

.  1  000-01 

.8233-00 

.1667-00 

.6300*01 

. 1 000*01 

.9000-00 

.  1  000-0  0 

.6- CO-C 1 

.  5  000*01 

.5000-00 

.5000-00 

.6500-01 

.9000-01 

.91 58-00 

.8421-01 

.6600-01 

.0000 

.6383-01 

.9362-00 

.6700*01 

.7000-01 

.5-6--OC 

.4516-00 

.6600-01 

.3000-01 

.  1  739-  00 

.8261 -00 

.6900*0' 

.  3000*0' 

.5'65-OC 

.4825*00 

.7000-01 

.3000-01 

.9-00-00 

.6000-01 

.  71  00-0' 

.  1  000  -01 

.5000-00 

. 5000-00 

. 7200-01 

.  0000 

.1000-0' 

. 1957-05 

. 7300-01 

.1000-01 

.9000-00 

. 1000-00 

.7400-01 

.4000-01 

.9000-00 

.  1  000  -0  0 

.7500*01 

.E  000-  0  1 

.76S--00 

.2316-00 

.7600-01 

.4000-01 

.  0000 

.  1000-0  1 

. 7’00-C  1 

.4  000-  0' 

.5161-00 

.4839-00 

. ’'800  -  0 1 

.3000-01 

.2717-00 

.7283-00 

.1-00*01 

.5000*01 

.351 6-00 

•  64  8  4-00 

.  0  0  0  0  •  C  1 

.2000-01 

.8-00-CC 

. 1600-00 

.8100*01 

.  0  0  0  0 

.8500-00 

. 1500-00 

.6200-01 

.  0  00  0 

.  8  2  3  3-  0'' 

.  1  66  7  -00 

.23:0-0' 

•  COCO 

.9000-00 

. 1000-00 

. oo-o • 

.-000-01 

.5000-00 

.  5000  -CC 

.6500*01 

.6000*01 

.6000-00 

.4000-00 

Figure  3-5  (Continued) 


59 


OO  OOO*— OOOOOO^-OOOr— r-OOOCjOO  a~M— 

oooooooooooooooooooooooo  oo 

♦  ♦♦♦♦  I  ♦♦♦♦♦♦♦♦♦♦  I  I  ♦♦♦♦*>♦  I  ♦ 
OAjO^OO^OO  •0!»«-0^00-4  0  0<\i0  0»-  -O  f^O 
■vj  (\i(\icCOO^OOrg-ON-  ONOO^OO'^OiT'O®  OOO 
KlOcOf^O/'KlOOw^>/COOAjf\)OMOO'00&kAfVfNJ  O  O 
f's.  or^  LTir-r-  »0»-  r\iO  K''  r—  \r'nr-  r\j^vTS-7  ^7  o  -O  OO  '-X  r-r- 


0000000000^-0  OOOOOOOOOOO  r~ 

OOOOOOOOOOOO  OOOOOOOOOOO  O 

♦  ♦♦♦♦♦♦♦♦♦  I  ♦  ♦♦♦♦♦♦♦♦♦♦♦  ♦ 

OCOsI^OONOO-JOOO^OONOOcOf-O  -■/  00 

OS^^Ot^oOONi-fNjOfNjOO'OOO-OOV^'-  00 
OOr--OOAJOOO'JKi*-ONcOO'O^OrO»->;NN  OO 
NrON'JOOOOiANi^'OO'JOOCOO'O'O^^ri*-^  o«— 


OO  OOO  OOOOOOOO  OOOOOOOO  O 

♦  ♦  ♦♦♦  ♦  ♦«*♦♦♦♦♦  ♦♦♦♦♦♦♦♦  ♦ 

OOOOOOOOOOOOOOOOOOOOOOOO  00 

o 00000 000000000 000 000  000  00 

oooooooooooooooooooooooo  o*~ 

f-kTtO-OKWNO*“rg-OfMrof\i^ryOf\n/un»“*-K\rj«j  Oo 


TJ 

d 

3 

c 


o 

o 


LO 

I 

m 

d 

i- 

3 

CH 

Li. 


t— »— r\ir\j  r\j  r\jr\jr\j  CC 

OOOOOOOOOOOOOOOOOOOOO  OOO  3D 
♦  ♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
oooooooooooooooooooooooo  — 

OOOOOOOOOOOOOOO'-N^^^ONtOO  zx 

O^COO  O*-  OOO 000 000 0000  — • 

®C0fl0fl0Ot>0'0'CM>CMM>O»-rf-fr«-rrrr  Ct 


#V9* 


•5fOO-9<  .*050-91  .*000-01  .woe-87 

:l«««  :!!«:«  :11SS:!S  :!H8:S1 

M  70  7  )  5  8  55  to  *9  90  99  00  «9  '0  M  10  05  •«  *9  100  iu*Ll(HM 


;  " 

u 

0 '  >  • 
f»  *  • 

01-  •  •  » 

S!  .  '  : 

ii 

O'.  •  0  * 

SI  :  *  • 

« 

}i  :  .  ■ 

» 

ji  :  ’  *  : 

91  V  0 

u 

O'*  •  •  u 

O'*  •  u 

O’  •  u 

O'*  i  * 

01  «  > 

O'  ■  » 

O'*  *  *  • 

8!  :  ’  ! 

01*  •  u  • 

01  1  v 

“ 

Oi  •  »  *u 

01-»  •  » 

01  -  •  ■ 

O'-  1  •  • 

V 

O'  *  • 

Oil  ( 

01  -  * 

e  v 

01  -  *  u 

O'-  •  g 

' 

; 

i:  :  :  •  ; 

0  1  •  •  • 

01  •  * 

01  •  w 

\ 

11  :  “  .  * 

0  '  •  w  •  • 

01  •  e 

O'* 

»i  •  e  i  • 

Ji  t 

*i  i 

01  •  VO 

v  * 

#1  *  *  1 

71  ’  .  1 

0  • 

\\  ;  •  i  f  : 

u 

ii  :  •  « 

0 

i!  :  ?  *  *  * 

1 

O'  -  *  • 

ii  s 

S!  :  :  • 

u  • 

J?  *  w  \  *  • 

1 

•  J  •  •  w 

O'  »  • 

' 

0*  •  * 

01  *  i 

01  •  •  » 

j;  :  ;  ; 

ii  ;  \  i  < 

II 

ij  ;  ’  •  ,  : 

ii  :  ’  •  *  .  • 

97  •  .  i 

li  :  •  ; 

u 

Si  :  1  : 

u 

’♦  1  9  7  5  >0  59  to  1  9  50  19  *0  09  '0  M  10  15  *0  *9  100 


Oll»*U*  (oailtn  9*  '00  *01*1  l(  't  '  101  *0l*H) 

1 1 o**4(  >uO<ti()  *0 •  •  17}  •  o  i ■  •  HU  1 500  «o*0l  * 

1«oa*6<  ■Hill  *0*  «05  »8I*I  HM  I  too  «8III  I 


Figure  3-6  Plot  Output  for  MUX DA. 


Figure  3-7  Variation  of  Queue  Length  with  Time  in  MUXDA  (First  Run' 
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Figure  3-11 


Plot  Output  for  MIJXDA  in  Second  Run 
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Figure  3-12  Variation  of  Queue  Length  with  Time  in  MUX DA  (Second  Run). 
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Figure  3-14  Variation  of  Bus  Idle  Time  with  Time  in  MUXDA  (Second  Run), 
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A  DESCRIPTION  OF  THE  MUXDB  PROGRAM 

The  MUXDB  model  refers  to  redundancy  management  and  fault¬ 
handling  phases  of  the  multiplex  system.  Regarding  the  means  by 
which  faults  will  he  dealt  with  and  system  redundancy  controlled, 
this  is  an  area  of  great  complexity  in  the  design  of  multiplex 
systems.  Redundancy  is  designed  into  multiplex  systems  to  reduce 
mal functions . 

MUXDA  and  MUXDB  basically  have  the  same  key  features,  but 
both  models  are  important  because  it  takes  longer  to  cycle  through 
an  equivalent  simulated  time  for  MUXDB  than  it  does  for  MUXDA, 

MUXDB  is  a  more  complex  form  model  DA;  the  differences  include 
the  following: 

(1)  extreme  noise  impact  on  the  data  bus 

(2)  terminal  malfunction  and  impact  of  failure  recovery 

(3)  the  command  and  response  dealt  with  on  an  individual  message 
basis 

(4)  introduction  of  message  transmission  time  uncertainties 

Statement  of  the  Problem 

Model  DE  represents  a  system  consisting  of  demand  access  back¬ 
ground  message  queueing  and  foreground  fixed  format  message  trans¬ 
mission.  After  completing  the  fixed  message  requirement,  the  demand 
access  messages  are  transmitted  on  a  first-in,  first-out  basis. 

Model  DR  takes  into  account  the  impact  of  noise  on  the  dual  redundant 
data  bus.  In  order  for  a  failure  to  result,  both  data  buses  must  be 
impacted  by  a  noise  event  during  transmission  of  the  same  message. 

In  this  model,  bus  failures  are  generated  by  using  a  noise  event  of 
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ATTRIBUTES 

FILE  1 

FILE  2 

FILE  3 

File  Definition 

Events 

Arrived  Demand 
Messages 

Temporary 
Storage  File 

ATRIB  (1) 

Event  Time 

Time  of  Arrival 

Fvent  Time 

(2) 

Event  Type  where 
Event  Type  = 

1*100  +  J  and  I  is 
event  type  and  J  is 
sub-type 

1000.  +  Demand 
Message 
Number 

Same  as  File  1 

(3) 

Message  number  (for 
event  type  100) 
Message  number  plus 
number  of  hits  on 
buses  (for  event 
types  200  and  300) 
Noise  generator 
number  (for  event 
types  400  or  500) 
Don't  care  (for 
other  event  types) 

Time  of  Arrival  in 
Waiting  Queue 

Same  as  File  1 

Event  Type 

J  =  Subtype 

I  J 

100  -  Watchdog  Timer 

100  -  Dummy  Argument 

200  -  Call  to  a  Terminal 

200  -  Terminal  Number  1,NTR 

300  -  Terminal  Response  to  a 

Call 

300  -  Terminal  Number  1  ,NTR 

400  -  Noise  Start 

400  -  Bus/Noise  Designation 

500  -  Noise  Stop 

1,2,3 

603  -  Terminal  Recovery  from 

Fa i 1 ure 

500  -  Bus/Noise  Designation 

700  -  Terminal  Failure 

1,2,3 

800  -  Start  a  FUI 

600  -  Terminal  Number  l.NTR 

1000  -  Demand  Message  Arrival 

700  -  Terminal  Number  1  ,NTR 
800  -  FUI  Number  1 .NFUIS 
1000  -  Demand  Message  Number 
i  ,NDM 

Table  3-3  Definition  of  GASP  Files. 


Variahl e 


Def ini tion 


DM  (I,J)  remand  Message  Parameter  Definition, 

J  =  Demand  Message  Humber 
I  =  Demand  Message  Parameter 

where : 

1  =  Mean  time  between  Demand  Message 
Occurrences 

★ 

?  =  Maximum  A  of  uniform  distribution 
about  Mean 

1  =  Demand  Message  length 

4  =  Terminal  to  call  for  this  Message 

DMF  Time  of  the  end  of  the  response  of  the  last  demand 

message  sent 

FIT  (I,J)  Fixed  message  lengths  per  FUI 

J  =  FUI  number 

I  =  ( I , N F I X ( J ) )  for  particular  Fixed  Message 
within  FUI 

FMF  Time  of  the  end  of  the  response  of  the  last  fixed 

message  sent 

FUI  Fundamental  Update  Interval  (FIJI)  for  data  trans¬ 

mission  on  bus 

FUI1T  The  time  of  occurrence  of  the  last  FUI  numhered  1 

FUIPPS  Time  of  start  of  actual  message  or  process  for  Fill 

FUISTA  The  actual  time  of  FUI  start 

IB'JSY  Bus  Controller  Busy  Transmitting  or  Awaiting 

Response  (0  =  Not  Busy,  1  -  Busy) 

ICURF  The  FUI  number  currently  being  processed  (1,NFUIS) 

ILBDT  The  current  number  of  noise  events  disrupting 

transmission  on  the  left  bus  (O.f'NOISE) 

Table  3-4  Definition  of  Non-GASP  Variables. _ 

*  Time  increment,  between  two  successive  points. 


Variabl  e 


Definition 


m  (i) 

IRBUS 

I  RES E 

JIT 

MSGN0F 

f'SGTYP 

NB 

NDM 

N  F I X  (I) 

fIFUIS 

ML 

NMF  G 

MMSGF 

NN0ISF 


Terminal  Up/Down  Status 

I  =  Terminal  Number  (1,NTR) 

I f*) K ( I )  =  ( 0=L)p  and  Working,  l=Rusted) 

The  current  numher  of  noise  events  disrupting 
transmission  on  the  right  bus  (O.NNOISE) 

The  numher  of  valid  readible  responses  lost  to 
timeout 

The  switch  to  detect  occurrence  of  the  first 
schedul ed  message 

The  current  fixed  message  number,  in  FUI,  ICURF, 
being  processed  at  this  time  if  MSGTYP=1 
(Don't  care  if  MSGTYP^l ) 

The  current  message  type  being  processed  by  the 
bus  controller.  Where  MSGTYP  equals: 

1  for  fixed  messages 
?  for  demand  messages 

Number  of  noise  hits  on  both  buses 

Maximum  Quantity  of  Demand  Messages  which  the 
System  must  process 

The  number  of  fixed  messages  to  be  processed  by 
an  individual  FUI 

I  =  Particular  FU3  Number  (T.NFU1S) 

Maximum  number  of  FUI  intervals.  This  is  the 
number  of  minor  frame  cycles  per  major  frame. 

Number  of  noise  hits  on  left  bus 

Total  number  of  messages  sent  during  simulation 

Total  numher  of  messages  hit  on  at  least  one  bus 

Number  of  different  noise  generators  impacting  the 
system.  This  is  the  number  of  user  input  noise 
generator  cards  (Max=15). 


Table  3-4  Definition  of  Non-GASP  Variables  (Conti nued ). 


Variable 

Definition 

NSBUS  (I) 

Noise  generation  parameter  for  generator  I  which 
denotes  hus(es)  impacted.  (1  =  1, NNO I SE )  and 

NSBUf>  ( I  )  = : 

1  for  left  bus  affected 
?  for  right  bus  affected 

3  for  both  buses  affected. 

NR 

Number  of  noise  hits  on  right  bus 

NTV 

User  input  of  quantity  of  terminal  down  events 
affecting  system.  (Mote;  a  terminal  down  event 
can  affect  any  terminal  in  system). 

MTO 

Number  of  timeouts 

MTP 

User  input  of  quantity  of  terminals  in  system 

N  I.JMV  ( I ) 

(Unused  variable) 

SLNG  (I) 

Mean  length  for  occurrence  of  noise  event  gen¬ 
erated  by  noise  generator  I.  Where  I  =  (1.NN0ISE) 

SLVAR 

Maximum  A  of  uniform  distribution  about  length 
SLNG(I)  for  occurrence  noise  generator  I  where 

I  =  (1.NN0ISE) 

SMEAN  (I) 

Mean  time  between  occurrences  of  noise  events 
generated  by  noise  generator  1(1  =  (1.NN0ISE)). 

SMVAR  (I) 

Maximum  A  of  uniform  distribution  about  SMEAN(I). 

I  is  noise  generator  number  (1.NN0ISE). 

TLEN  (I) 

The  length  of  a  terminal  down  time  for  terminal 
down  event  generator  I.  (I  =  (],NTM)). 

TL VAR  (I) 

The  maximum  A  of  uniform  distribution  about  time 
of  ter  minal  down  TLEN ( I )  generated  by  terminal 
down  generator  1.  ( I=(l ,NTM) ) 

WAN  ( ; ) 

Mean  time  for  occurrence  of  next  terminal  down  by 
terminal  down  generator  I  where  I  =  (1,NTM). 

IMG F NT  ([) 

Total  message  lengths  sent  per  FIJI  number  1  where 

I  =  ( 1 ,  N  F!  1  IS). 

Figure  3-4  Definition  of  Non-GASP  Variables  (Continued). 
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Def i n i t i on 


7ablf>  1-4  Definition  of  Non-fiASP  Variables  (Continued) 
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endless  duration.  The  foreground  transmission  of  a  message  is  sent 
on  a  sage-hy-nossage  basis,  instead  of  a  fixed  non-varying  sequence 
group.  This  scheme  evaluates  the  impact  of  noise  on  the  message.  For 
separate  evaluation,  the  message  is  separated  into  the  command  segment 
and  the  response  segment.  Failure  can  he  recognized  by  either  a  non- 
responding  terminal  or  a  failure  of  the  controller  to  acknowledge  the 
response.  A  fai’sro  can  also  he  determined  by  a  "watch-dog"  tinier 
oven'  that  occurs  before  a  given  message  response. 

occurrence  of  ,t  failure  event  causes  each  terminal  on  the  bus 
to  fa  i 1  .  I  tore  are  two  failure  modes:  (1 }  permanent  disable  or 
(?'  i’-ter-i  t.tent  disable  (that  is,  a  terminal  which  recovers  from  a 
fr>i’ure  after  a  period  of  time).  There  is  a  response  ti  e  associated 
wife,  each  message,  which  is  uniformly  distributed.  Therefore,  under 
ft  is  situation  a  controller  cannot  predict  the  lenuth  of  time  for 
transmitting  a  message.  If  the  length  of  time  for  an  average  message 
transmission  is  less  than  the  time  tc  the  start  of  the  next  FIJI  time, 
the  controller  will  schedule  its  occurrence;  however,  this  program 
'as  a  built  in  feature  which  allows  a  delay  of  the  next  Fill  fixed 
format  •••>•  sag"  transits'  ion  until  the  transmission  in  progress  is 
c  or  pi  f  t  . 

' j mu  1 _a_t  ion  nhjectives 

T»>e  ib-r  *■  i ves  of  this  simulation  are  to  determine  bus  resource 
ufi  1  i  pa*  )  ‘  r  ‘sis  approach  of  data  handling,  in  addition  to  ob- 

f  i  inir  i  i  -“a.  am  o'  the  impuc  t  of  bus  uncerta  i  nt  i  es  on  the  data 
'ransourtat  inn  timing.  7‘  ••  bur  uim  erf  a  int.it's  include  variabl  e 
r(-r  :io>'so  delay,  fas  nnicr.  ard  correspond  ing  watrfi  dog  requirements. 
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and  terminal  failure  and  corresponding  watch-dog  requirements. 

GASP  IV  Simulation  Structure  and  Program  Variables  for  MUXDB 

In  this  program,  there  are  three  files  used.  Table  3-3  gives 
the  definitions  of  the  files  and  their  associated  characteristics  for 
this  simulation.  File  1  is  the  event  file  as  per  GASP  IV,  File  2 
stores  the  demand  message  arrival,  and  File  3  is  the  temporary 
storage  file.  Table  3-4  defines  the  non-GASP  variables. 

Main  Program,  Subroutine  INTLC,  and  Subroutine  EVNTS  Description 
Main  Program 

The  main  program  sets  the  card  reader  number  (NCRDR)  and  the 
card  printer  number  (NPRNT)  and  subroutine  GASP  is  called.  The 
MUXSIM  executive  system  is  not  used,  therefore  it  is  not  necessary 
to  use  subroutines  CHAIM,  RESTOR,  and  GETCOM. 

Subroutine  INTLC 

This  subroutine  is  called  via  subroutine  DATIN,  in  order  to 
read  in  the  simulation  data  cards  and  to  set  up  the  initial  con¬ 
ditions  from  the  input  data  cards  or  algebraic  statements.  The 
non-GASP  user  input  data  are  printed  out  to  make  checking  easier. 

Subroutine  EVNTS 

Subroutine  EVNTS  sends  control  to  one  of  the  nine  user  written 
subroutines:  WATCH,  CTERM,  TERMR,  NOISES,  NOISET,  TRMUP,  TRMDN, 

FUI,  and  DMARIV.  The  events  of  the  simulation,  in  the  order  of 


their  event  code  are: 
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100-Watch-Dog  Timer  (WATCH) 

200-Call  to  Terminal  (CTERM) 

300-Terminal  Response  to  a  Call  (TERMR) 

400-Noise  Start  (NOISES) 

500-Noise  Stop  (NOISET) 

600-Terminal  Recovery  from  Failure  (TRMUP) 

700-Terminal  Failure  (TRMDN) 

800-Start  a  Fundamental  Update  Interval  (FUI) 

1000-Demand  Message  Arrival  (DMARIV) 

Subroutine  WATCH  (IDUM) 

The  "watch-dog"  timer  event  is  established  in  subroutine  WATCH, 
which  performs  the  following  functions: 

(1)  The  program  increases  the  number  of  timeouts  (NTO)  by  one. 

(2)  To  set  the  requirement  for  testing  a  next  message,  it  calls 
subroutine  NXTMSG  (2). 

Subroutine  CTERM  (ITRM) 

The  call  to  terminal  events  is  accomplished  in  subroutine  CTERM, 
which  performs  the  following  functions: 

(1)  This  routine  tests  for  noise  hits  on  the  data  bus. 

(2)  CTERM  handles  message  arrival  and  processing  at  a  terminal  and 
produces  terminal  response, 

(3)  CTERM  prevents  response  if  noise  hits  on  both  buses  or  if  the 
terminal  is  down, 

(4)  If  there  is  no  response  inhibit,  CTERM  schedules  a  response. 

(5)  CTERM  increases  the  number  of  messages  by  one  in  order  to  record 


86 


the  total  number  of  messages  sent  during  the  simulation. 

Subroutine  TERMR  (ITRM) 

Terminal  response  is  accomplished  in  subroutine  TERMR,  which 
performs  the  following  functions: 

(1)  This  routine  checks  to  see  if  the  terminal  response  is  valid; 
if  it  is  not,  the  "watch-dog"  timer  is  left  alone. 

(2)  It  illiminates  the  "watch-dog"  timer  and  calls  the  next  message 
(NXTMSG  (3))  subroutine  to  program  the  following  message  if  the 
terminal  response  is  valid. 

(3)  If  the  terminal  response  is  valid,  but  the  "watch-dog"  timer 
has  expired,  IRESE  is  increased  by  one. 

Subroutine  NOISES  (IN) 

The  noise  event  process  is  accomplished  in  subroutine  NOISES, 
which  performs  the  following  functions: 

(1)  NOISES  processes  noise  events  and  schedules  the  next  noise  event 
arrival  and  duration. 

(2)  It  establishes  which  buses  are  impacted. 

(3)  This  routine  marks  the  message  on  the  bus  hit  according  to  noise. 

(4)  It  increases  the  count  of  number  of  noise  events  on  the  proper 
buses  by  one. 

(5)  NOISES  establishes  the  end-of-the-noise  event. 

(6)  It  calls  the  STAT  subroutine  to  record  the  bus  noise  data. 

Subroutine  NOISET  (IN) 


Noise  event  termination  is  established  in  subroutine  NOISET,  which 
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performs  the  following  functions: 

(1)  This  routine  reduces  the  number  of  noise  events  on  the  proper 
buses  by  one  to  record  the  number  of  noise  events  left. 

(2)  To  record  the  bus  noise  statistics,  it  calls  subroutine  STAT. 

Subroutine  TRMUP  ( ITN) 

Terminal  recovery  from  failure  is  established  in  subroutine 
TRMUP,  which  performs  only  one  function:  it  decreases  the  terminal 
up/down  status  IOK(IN)  by  one.  The  terminal  is  operational  if  the 
indicator  is  zero. 

Subroutine  TRMDN  (ITN) 

Terminal  failure  is  established  in  subroutine  TRMDN,  which 
performs  the  following  functions: 

(1)  To  indicate  that  the  terminal  is  down,  it  sets  the  up/down 
status  IOK(ITN)  up  one. 

(2)  TRMDN  schedules  the  next  down  event  for  this  terminal. 
Subroutine  FUI  (IFUI) 

The  start  of  the  fundamental  update  interval  is  established 
in  subroutine  FUI,  which  performs  the  following  functions: 

(1)  If  FUI  =  1,  it  proceeds  to  compute  the  time  of  the  next  FUI  (1) 
start  to  prevent  the  round-off  error  from  accumulating  and  invalid¬ 
ating  the  results.  It  then  produces  the  entire  schedule  for  all 
FUI  starts  for  the  remainder  of  this  frame  and  schedules  the  arrival 
of  the  FUI  (1)  for  the  next  major  frame.  If  FUI  t  1,  it  omits  the 
above  and  starts  at  this  point. 


(2)  It  sets  the  value  for  current  Fill  (ICURF)  and  sets  the  value 
of  the  fixed  message  number  to  be  transmitted  to  1,  the  message 
type  to  1  to  indicate  a  fixed  message,  and  the  JTT  switch  to  I  to 
enable  the  detection  of  the  first  message  to  be  transmitted.  It 
then  calls  subroutine  NXTMSG  (1)  to  schedule  the  next  possible 
call  to  a  terminal . 

Subroutine  DMARIV  (I DM) 

The  arrival  of  a  demand  message  is  established  in  subroutine 
DMARIV,  which  performs  the  following  functions: 

(1)  DMARIV  establishes  the  length,  message  number,  and  arrival  time. 

(2)  It  files  this  information  in  File  (2)  or  the  arrived  demand 
message  file. 

(3)  It  schedules  the  next  arrival  of  this  demand  message. 

Subroutine  OTPUT 

Subroutine  OTPUT  is  used  to  gain  output  in  addition  to  the 
standard  GASP  IV  summary  report.  OTPUT  is  called  prior  to  sub¬ 
routine  SUMRY  and  is  used  to  print  out  the  following: 

(1)  The  number  of  timeouts  or  intervals  of  time  between  bus  failure 
and  bus  recovery. 

(2)  The  number  of  valid  readable  responses  lost  to  timeouts. 

(3)  The  number  of  bits  on  the  left  bus,  right  bus,  and  on  both  buses. 

(4)  The  total  number  of  messages  sent. 

(5)  The  total  number  of  messages  to  hit  on  one  bus  or  more. 

Subroutine  NXTMSG  (I AM) 

The  subsequent  call  to  a  terminal  scheduling  is  established  in 
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subroutine  NXTMSG,  which  performs  the  following  functions: 

(1)  If  it  is  the  start  of  FUI  and  the  bus  is  busy  either  waiting 
on  transmission  or  a  transmission  is  in  progress,  it  returns  to 
the  subroutines  that  have  been  called. 

(?)  NXTMSG  branches  on  message  type  to  3  or  5. 

(3)  It  collects  a  histogram  and  statistics  information  for  the 
first  fixed  message  in  FUI. 

(4)  If  possible,  it  schedules  a  fixeu  message  transmission  and 

a  companion  "watch-dog"  timer  event.  It  then  updates  the  message 
number  by  one,  sets  the  IBUSY  flag  to  busy  (one)  and  increases  the 
message  count  by  one,  and  returns. 

(5)  For  a  demand  message,  NXTMSG  tests  to  see  if  there  is  time  to 
send  a  demand  message;  if  there  is,  it  schedules  a  call  to  a  terminal 
and  schedules  a  companion  "watch-dog"  terminal  event,  sets  the  busy 
flag,  and  increases  the  message  count  by  one. 

(6)  If  a  demand  message  cannot  be  scheduled  due  to  lack  of  time  to 
achieve  the  transmission,  this  routine  sets  the  busy  flag  to  free 
and  establishes  the  end  of  demand  message  transmission  for  this 
FUI.  It  then  returns  to  the  subroutines  that  have  been  called. 

Subroutine  STAT  (ILBUS,  IRBUS) 

Statistics  of  time-persistent  variables  for  noise  on  the  left 
bus,  right  bus,  and/or  both  are  collected  for  noise  events  on  the 
bus;  this  is  the  only  function  that  subroutine  STAT  performs. 

Function  RNXT  (RMEN,  RVAR,  ISTRM) 


This  routine  computes  the  delta  time  for  the  next  event  arrival 
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for  a  given  event  generation,  which  is  based  on  a  uniform  dis¬ 
tribution  about  the  mean,  using  the  random  number  stream  designated 
by  the  user.  RNXT  performs  the  following  functions: 

(1)  For  calling  the  next  arrival  of  the  event  in  question,  RNXT 
establishes  the  random  number  stream. 

(2)  For  the  event  in  question,  it  establishes  the  uniform  upper 
and  lower  bound. 

(3)  By  using  the  uniform  distribution,  RNXT  computes  the  arrival 
time. 

Simulation  Report 

The  MUXDB  outputs  are  given  in  the  following  section,  with 
particular  emphasis  on  some  of  the  more  common  data  outputs: 

Figure  3-15  shows  the  input  data  echo  check,  provided  by 
subroutine  DATIN.  Figure  3-16  presents  the  user  input  cards; 

Figure  3-17  is  similar  to  Figure  3-16,  but  is  given  in  more  detail. 
The  printout  of  the  files  that  are  obtained  at  the  end  of  subroutine 
DATIN  (Time  0)  is  shown  in  Figure  3-18,  and  a  partial  printout  of 
the  event  tracing  which  is  obtained  from  subroutine  MONTR  is  shown 
in  Figure  3-19. 

Figure  3-20  is  the  GASP  IV  summary  report.  The  statistics  that 
are  collected  using  subroutine  COLCT  are  presented;  these  show  that 
the  interval  time  between  the  start  of  an  actual  message  and  the 
response  of  the  last  demand  message  is,  on  the  average,  .016  of  the 
time  unit  with  the  standard  deviation  of  .0026  of  the  time  unit. 
These  values  are  based  on  1,000  observations.  The  minimum  and  max¬ 
imum  values  observed  for  the  time  interval  between  the  start  of  an 
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actual  message  and  the  end  of  the  response  of  the  fixed  message 
are  .011  and  .022  of  the  time  unit,  respectively.  The  average 
interval  time  between  the  start  of  an  actual  message  and  the  end 
of  the  last  demand  message  is  .088  of  the  time  unit,  based  on 
1,000  observations. 

The  next  set  of  statistics  on  the  summary  report  is  for  the 
data  collected  in  subroutine  TIMST;  this  shows  that  the  utilization 
of  noises  on  the  right  bus  is  .018  of  the  time  unit  over  the  total 
simulation  time  of  1,000  of  the  time  unit. 

Statistics  regarding  the  use  of  files  are  shown  in  Figure  3-21. 
For  example,  on  the  average,  there  are  23.3  events  in  file  1.  A 
maximum  of  32  events  are  stored  in  the  event  file. 

In  Figure  3-22,  statistical  information  for  the  fixed  message 
in  FUI  is  given.  The  figure  shows  that  91.4%  of  the  first  fixed 
messages,  based  on  10,001  observations,  has  the  starting  time  less 
than  or  equal  to  .014  of  the  time  unit. 
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ISPUT  CABCS 
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6  .006 
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6  .006 
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10  .006 
1  1 


1100.0  10.  0 
1100.0  10.  0 


Figure  3-16  User  Input  Data  for  GASP  IV  in  MUXDB  Simulation. 
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CHAPTER  IV 


A  SIMULATION  EXAMPLE  IN  VARIOUS  LANGUAGES 

In  this  chapter,  a  single  queue,  single  server  simulation  ex¬ 
ample  is  discussed  in  four  languages;  they  are:  FORTRAN,  GASP  IV, 

GPSS  II,  and  SIMSCRI PT  II. 

The  primary  goal  of  this  program  is  to  simulate  a  single  queue, 
single  server  system.  In  this  thesis,  the  server  is  analogous  to 
the  terminal  or  bus  controller  and  the  queue  is  the  message  queue 
stored  in  the  controller.  The  service  unit  is  the  data  bus  itself. 

The  arrival  of  a  message  on  a  bus  is  exponentially  distributed  with 
mean  time  of  five  minutes  and  the  service  time  is  also  exponentially 
distributed  with  mean  time  of  four  minutes.  This  program  is  simulated 
for  eight  hours  (simulation  time).  The  second  goal  is  to  use  FORTRAN 
to  implement  the  model  to  realize  impropriety  of  the  language  for 
simulation.  Figure  4-1  shows  the  general  structure  of  this  problem 
in  the  FORTRAN  language. 

A  Description  of  the  FORTRAN  Simulation  Program 

The  FORTRAN  Simulation  Program  performs  the  following  functions: 

(1)  FORTRAN  initializes  all  variables  and  parameters  and  sets  the 
total  time  of  simulation, 

(2)  This  program  checks  to  see  whether  the  simulation  time  is  over; 
if  it  is  over,  it  calls  the  proper  event  to  be  executed, 

(3)  FORTRAN  calculates  the  average  queue  length  and  the  average 
service  time  for  all  runs. 
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The  flow  chart  of  subroutines  ARRIVAL,  SERVICE,  and  DEPARTURE 
is  given  in  Figures  4-2,  4-3,  and  4-4,  respectively.  The  printout 
of  this  program  is  given  in  Figure  4-5, 


Tests  if  Time  of 
Next  Service  is  , 
less  than  Time  of 
Next  Arrival 


|  Tests  if  Time  of  Next  ■*- 
,  Departure  is  less  than<^ 
Time  of  Next  Service  and 
!  Time  of  Next  Arrival 


TONS:  TONA 


Assign  20 
to  Event 


K  TOND: 
TONS :&T0NA 


Assign  30 
to  Event 


Choose  the  smallest  Time  of 
Transactions  and  Assign  the 
Event  for  that  Transaction 


Figure  4-1  Flow  Chart  of  Single  Queue,  Single  Server  in  the  FORTRAN 
Program. 
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re  4-1  Flow  Chart  of  Single  Queue,  Single  Server  in  the  FORTRAN 
Program  (Continued). 
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Subroutine  ARRIVAL 

The  parameters  received  by  this  subroutine  are:  Time  of  Next 
Arrival  (TONA),  Time  of  Next  Service  (TONS),  Clock,  Time  of  Last 


Queue  Change  (TOLQC),  Queue  Length  (IQ),  Total  Queue  Length  (TIQ), 
Facility  Status  (IFS),  Sum  of  Queue  Length  (SCQL),  Expected  Arrival 
Time  (EXPA),  and  Seed  for  Random  Number  Generator  (N). 


Subroutine  SERVICE 


The  parameters  received  by  this  subroutine  are:  Time  of  Next 
Service  (TONS),  Time  of  Next  Departure  (TOND),  Clock,  Time  of  Last 
Queue  Change  (TOLQC),  Queue  Length  (IQ),  Sum  of  Queue  Length  (SOQL), 
Sum  of  Service  Time  (SOST),  Expected  Service  Time  (EXPS),  and  Seed 
for  Random  Number  Generator  (N). 


Update  Time  of 
Last  Queue  Change 


Figure  4-3  Flow  Chart  of  Subroutine  SERVICE. 
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Subroutine  DEPARTURE 

The  parameters  received  by  this  subroutine  are:  Time  of  Next 
Departure  (TOND),  Time  of  Next  Service  (TONS),  Clock,  Queue  Length 
(IQ),  and  Facility  Status  (IFS). 


Figure  4-4  Flow  Chart  of  Subroutine  DEPARTURE. 
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Figure  4 
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Figure  4-5  (Continued) . 
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GASP  IV  Simulation  Program 

The  objective  of  this  program  is  to  simulate  a  Single  Queue, 
Single  Server  system  by  using  the  GASP  IV  simulation  language. 

The  arrival  of  a  message  is  exponential ly  distributed  with  mean 
time  five  minutes  and  the  service  time  is  exponentially  distributed 
with  mean  time  four  minutes. 

A  Description  of  the  GASP  IV  Simulation  Program 

The  GASP  IV  Simulation  Program  is  divided  into  the  Main  Program 
and  four  subroutines;  they  are:  EVNTS,  APR,  BEGS,  and  FINS. 

There  are  three  files  used  for  this  program.  File  1  is  the 
event  file,  File  2  is  for  queueing  the  message,  and  File  3  is  for 
service  facility.  The  flow  chart  of  this  program  is  shown  in 
Figure  4-6. 

Main  Program 

The  Main  Program  sets  the  card  reader  number  (NCRDR)  and  the 
card  printer  number  (NPRNT)  and  subroutine  GASP  is  called. 

Subroutine  EVNTS 

Subroutine  EVNTS  sends  control  to  one  of  the  three  user  written 
subroutines:  APR,  BEGS,  and  FINS.  The  events  of  the  simulation, 
in  the  order  of  their  event  code  are: 

20  -  Arrival  (ARR) 

30  -  Begin  Service  (BEGS) 

40  -  Finish  Service  (FINS) 
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Subroutine  ARR 

The  event  arrival  process  of  a  message  is  accomplished  in 
subroutine  ARR.  This  subroutine  records  the  arrival  of  a  message 
and  schedules  the  next  arrival  of  a  message,  ARR  also  tests  to 
see  whether  there  are  any  messages  in  the  Queue  and  if  the  Service 
Facility  is  free.  If  there  are  no  messages  in  the  Queue  and  the 
Service  Facility  is  free,  it  schedules  another  arrival  of  a  message; 
otherwise,  ARR  returns  to  subroutine  BEGS. 

Subroutine  BEGS 

The  begin  event  is  established  in  subroutine  BEGS.  This  sub¬ 
routine  removes  a  message  from  the  Queue,  puts  the  message  in  the 
Service  Facility,  and  schedules  the  finishing  service. 

Subroutine  FINS 

The  finish  event  process  is  accomplished  in  subroutine  FINS. 
This  subroutine  removes  a  message  from  the  Service  Facility  and 
schedules  begin  service  if  there  are  any  messages  in  the  Queue. 

Simulation  Report 

Figure  4-7  presents  the  input  data  echo  check,  provided  by 
subroutine  DATIN  and  a  printout  of  the  files  that  are  obtained 
at  the  end  of  subroutine  DATIN, 

Figure  4-8  is  the  GASP  IV  summary  report.  On  the  average, 
there  are  1.83  events  in  file  1,  with  the  standard  deviation  of 
.38  minutes.  File  2  shows  the  average  Queue  length  is  2.85 
minutes,  with  the  standard  deviation  of  2.95  minutes.  The  max- 
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imum  number  of  messages  in  the  Queue  is  12.  File 
the  average  utilization  time  is  ,83  minutes,  with 
deviation  time  of  one  minute.  The  maximum  number 
in  the  Service  Facility  is  one. 


3  shows  that 
the  standard 
of  messages 
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Figure  4-8  GASP  IV  Summary  Report  for  Single  Bus  Example. 


GPSS  II  Simulation  Program 


The  objective  of  this  program  is  to  simulate  a  single  queue, 
single  server  system  by  using  the  GPSS  II  simulation  language.  The 
arrival  of  a  message  is  exponentially  distributed  with  mean  time 
five  minutes  and  the  service  time  is  exponentially  distributed  with 
mean  time  four  minutes. 

A^  Description  of  the  GPSS  II  Simulation  Program 

The  GPSS  II  Simulation  Program  performs  the  following  functions: 

(1)  This  program  creates  the  arrival  of  a  message  by  using  the 
GENERATE  block. 

(2)  GPSS  II  records  the  entries  of  messages  in  the  QUEUE  block. 

(3)  It  begins  service  on  the  facility  in  the  SEIZE  block, 

(4)  The  message  uses  the  service  facility  in  the  ADVANCE  block. 

(5)  The  message  frees  the  service  facility  in  the  RELEASE  block. 

(6)  The  simulation  terminates  when  simulation  time  is  over. 

The  block  diagram  for  this  program  is  given  in  Figure  4-9. 
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Simulation  Report 

Figure  4-10  presents  the  GPSS  II  printout.  The  second  and  third 
lines  of  this  printout  are  the  transaction  counts  for  all  blocks.  For 
example,  at  Block  2,  5  indicates  the  number  of  transactions  currently 
at  the  block  and  53  is  the  total  number  of  transactions  that  entered 
the  block. 

Line  six  gives  the  following  information:  the  facility  number  (1), 
the  average  utilization  time  (.76  minutes),  the  number  of  times  the 
facility  was  used  (48),  and  the  average  time  for  each  transaction 
(3.37  minutes). 

Line  nine  gives  statistics  for  the  Queue,  measured  by  the  block 
diagram.  This  includes  the  following: 

(1)  the  number  of  the  Queue  used  in  the  model  (1) 

(2)  the  largest  number  of  messages  in  the  Queue  (6) 

(3)  the  average  number  of  messages  in  the  Queue  (1.45) 

(4)  the  total  number  of  messages  entering  in  the  Queue  (53) 

(5)  the  number  of  messages  that  have  no  waiting  time  (12) 

(6)  the  percentage  of  messages  that  have  no  waiting  time  (22.64^) 

(7)  the  average  length  of  time  that  messages  spent  in  the  Queue 
(5,79  minutes) 

(8)  the  average  waiting  time  in  the  Queue  (7.49  minutes),  excluding 
the  messages  that  do  not  have  waiting  time. 

(9)  there  is  no  table  (0) 

(10)  the  current  value  of  the  Queue  content  (5) 
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SIMSCRIPT  II  Simulation  Program 

The  objective  of  this  program  is  to  simulate  a  Single  Queue, 
Single  Server  system  by  using  the  SIMSCRIPT  II  simulation  language. 
The  arrival  of  a  message  is  exponentially  distributed  with  mean 
time  five  minutes  and  the  service  time  is  exponentially  distributed 
with  mean  time  four  minutes. 

A  Description  of  the  SIMSCRIPT  II  Simulation  Program 

The  SIMSCRIPT  II  Simulation  Program  is  divided  into  five  parts; 
they  are:  Preamble,  Main  Program,  Event  Arrival,  Event  Departure, 
and  Event  Stop  Simulation. 

The  Preamble  defines  every  event,  including  Service  Time,  Queue 
Change,  and  Sum  of  Queue,  as  variables.  It  also  defines  the  status 
of  the  model  and  all  integer  variables. 

The  Main  Program  schedules  the  arrival  of  a  message,  the  desired 
number  of  hours  for  the  simulation  run,  and  the  start  of  the  sim¬ 
ulation  . 

The  Event  Arrival  schedules  the  arrival  of  a  message  and  creates 
a  message.  It  files  the  message  in  the  Queue  and  records  the  total 
number  of  entries.  The  Event  Arrival  computes  the  sum  of  the  Queue 
length  and  schedules  the  departure  of  the  message.  Figure  4-11 
shows  the  flow  chart  for  Event  Arrival. 

The  Event  Departure  lets  the  status  be  idle  if  the  Queue  is 
empty;  otherwise,  it  removes  the  first  message  from  the  Queue  and 
updates  the  last  Queue  change.  The  Event  Departure  destroys  the 
message  and  determines  the  service  time.  It  also  schedules  the 
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departure  of  the  message.  Figure  4-1?  shows  the  flow  chart  of 
Event  Departure. 

The  Event  Stop  Simulation  gives  the  simulation  statistics, 
such  as,  the  average  Queue  length,  utilization  time,  the  maximum 
number  of  messages  in  the  Queue,  and  the  total  entries. 

Simulation  Report 

The  average  Queue  length  for  this  simulation  program  is 
3.69  minutes  and  the  average  utilization  time  is  0.94  minutes. 
The  total  number  of  messages  entered  is  99  and  the  maximum 
number  in  the  Queue  is  9. 


V 


1 


Figure  4-12  Flow  Chart  for  Event  Departure  for  Single  Server  Example 
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CHAPTER  V 

SUMMARY  AND  CONCLUSION 

In  the  preceding  chapters  of  this  report  five  simulation 
languages  are  presented:  GASP  IV,  GPSS  II,  SIMSCRIPT  II,  ADA,  and 
ECSS  II.  Additionally,  a  simulation  of  a  simple  bus,  single  queue 
system  is  shown  utilizing  FORTRAN  IV,  GASP  IV,  GPSS  II,  and 
SIMSCRIPT  II.  The  objective  of  this  simulation  is  to  obtain 
information  on  queue  length  and  bus  utilization  and  compare  the 
various  programming  languages.  The  ADA  and  ECSS  II  languages 
are  not  available  on  the  Mississippi  State  University  Univac 
1108  System,  thus  there  are  no  simulation  runs  in  these  languages. 

The  primary  thrust  in  this  research  effort  has  been  the 
utilization  of  AFAL's  MUXS IM  simulation  program.  MUXSIM  was  copied 
from  the  AFAL  DEC  System  10  onto  magnetic  tape  and  transported  to 
Mississippi  State  University.  Considerable  time  and  effort  was 
expended  in  adaptinq  MUXSIM  to  the  UNIVAC  1108  system.  Due  to 
the  non-a va i 1 abi 1 i ty  of  interactive  terminals  at  Mississippi  State 
University,  MUXSIM  runs  were  made  in  batch  mode  using  card  decks. 

The  following  results  were  achieved  with  MUXSIM  operating  on 
the  UNIVAC  1108  system: 

1.  The  dynamic  portions  of  MUXSIM,  MUXDA  and  MUXDB,  were 
software  modified  for  use  with  the  UNIVAC  1108  based 
GASP  I'/.  Simulation  runs  of  MUXDA  and  MUXDB  are  listed 
in  Chapter  III  of  this  report. 
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2.  GASP  IV  user  subroutines  are  written  in  FORTRAN  language. 
Additional  FORTRAN  subroutines  for  expanded  plots  of  MUXDA 
bus  statistics  collected  by  GASP  IV  are  listed  (p.  154). 
See  the  Appendix  for  all  program  listings. 

3.  Data  files  for  MUXDA  and  MUXDB  were  linked  to  GASP  IV. 

Finally,  the  ADA  and  ECSS  II  languages  were  considered  as 
possible  simulation  tools  for  future  avionics  multiplex  data  bus 
studies.  Both  ADA  and  ECSS  II  are  general  purpose  languages  with 
attributes  which  make  them  candidates  for  consideration.  ADA  has 
programming  features  similar  to  COBOL  and  PASCAL.  The  ECSS  II 
language  relies  on  a  computer  system  with  a  SIMSCRIPT  compiler. 

From  a  practical  point  of  view,  it  appears  ECSS  II  offers  little 
advantage  over  SIMSCRIPT.  As  mentioned  previously,  no  simulation 
runs  were  made  with  ADA  and  ECSS  II;  the  discussion  of  these 
languages  is  based  on  information  obtained  from  references  [8] 

191. 

The  foregoing  statements  summarize  the  work  accomplished  under 
this  grant  and  cover  the  work  statements  outlined  in  the  proposal. 
An  additional  study  was  made  for  comparative  purposes  utilizing 
GASP  IV,  GPSS  II,  FORTRAN,  and  SIMSCRIPT.  The  results  of  this 
comparison  are  shown  in  Chapter  IV. 
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LIST  OF  PROGRAMS  AND  SUBROUTINES 


MUXDA 


»»o  c 

:  1  “E  ■>  5 :  on  n  se ' ' '  > 

co»*c-.  :s e  •  i :  ;c ) 

E  0  *  ]  v  a  L  :  n  C  S  <  •;  S  f  T  ( 1  >  .  0  S  £  T  <  1  )  ) 

Snna»0.nnapt  ,  n  n  a  ’  R  ,NNf  ;  L  ,N\;  (1  iO  )  .•.t,;:»,n»FM,P0i!*(SC,i)  , T  N  C.  , 

E  TTEEG.TTCLB.T'FlN.TTSIei^El.TTS'T 

c**c*  /gc  o*2  /  5cn?o)l:oL(ioc)I:TFuL,cTnc.,is££S.Lfi.*c(;:).'«EL‘:. 

SNN  ED  D  ,  NNc  D  S  ,  NNE  CT  ,  S  S  <  1  C  C  )  .SSL  '  1  60  )  .  T  T  M  £  X 
CC*"“Cv/C-CC'"i/  A4£ps,dTna«,dt»in,dTSAv.1IT£S.LL'BB.LLS‘v,LLSEv.a“f. 
SPB.TTlAS.TTSAV 

C  C  »•  ON  /  GC  0 * A  /  :'PLtllOI,H»iO»  <2  S  )  ,  h  h.  IMi'.l.lICn.M'ipnO.JjCiv 
ECS:0'.LL‘?C(2S.2),LLA?H(2S.2),i.LA?P<'!1.2),LLA=T(jA,;),tLPN;c!;),wL 
PLOC1'').wlPLT,LLSuB<1t).LlSr«(10),n*STs,NNC£L(25>.NN:LT,NNH;S,NN»L 
£T,NNPTS(1C‘>,N\STA,NNVARMC).PBhI(1C>,OPL0M"> 

common  / 3  coxs/  ;ievt,i:sec<;;,jj?eg,jjCi.p.,'^mt,',ic‘.,i.same<ji,‘j'. 
FI.NNOAr.NNPT.NNSfT.NNPSJ.NNPSH.NNBNS.NNBUN.NNSTO.NNYR.SSEFDte) 
co*,Mo*«/Gcop't/EE'.i(i:c).nNMioc),i'icBNx(i:c),'"»«3(i3i),Q3T;''(^;:) 

i,$S05V(2S,S),S$TPv(2S,t),VVNC<10C> 


P  =0  G  R  AH  PiJXI 

include  it 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

L 

c 

c 


- input  capo  oe  f i m  t ion - 

CAPD  ’TP{  A  °  £  DEFINED  s*  RELATIVE  POSITION  with  in  The  dictionary 
DEC**  Tnfif  CAPPS  A  ft  £  LOCATED  ACTE®  T*E  GASP  IV  CONTROL  C*®OS  *0® 
S  J«UL  AT  ION  B\j  N  1  . 


CARD  TYPE 
T  CAN$  F  E  6 


I  * 

»CD 


WS  : 


I  DE'.'NES  the  P  UI  TI»£  length  AND  D£“AND  'ESS»GE 
“ODE  (1.2).  I f  1C  I 2 )  (ONE  C*RO> 

IS  SELECTED  HC  BUNS  will  ENSUE.  (ONE  hCOE  1,  The 

<  -ode  2  is  selected  one  sun  .ill  ensue,  cod?  2) 


*  G  5  E  1*  f I s s T- j N-E 1 s St-cut . 

"COE  <*  w  0  NG c  S  T  «ESS*GE  That  CAN  ?E  TRANSMITTED  In 
IN  T  h  £  SE-aimnG  TINE  GOES  FIRST  . 


SECOND 
T  HE 


- [1.0  •>»;  II  D  £  '  I  \  E  S  * « E  DupatICn  0  f  Th£  IH([  *E  S  S  A  G  E  SEOuENCE 

FOB  E*CH  f j  j .  C»i;  BELuIRES  »  capo  fob  Each  fuI  and  The  CapdS 
“UST  EE  SEW  l'E*.  CEO  c"  ASCENDING  'u!  Nu-eER.)  CF10.0) 

5.5  -Entry  INDICATES  th£  end  of  cabd  Typ;  IJ  SEOUEnCE. 


-cab:  type  ::i  defines  the  demand  -essages.  (  am  0 . : >  (each  car: 
defines  a  dehano  E  S  S  AG  E  .  ) 

T-  =  EN’BIED  in  each  Card  are  OE'INEC  *S: 

f  I E  L  0  1 »  - E  *  N  arrival  TI-e.  ( U  M  f  c  R  «  l  t  DISTRIBUTED) 
field  2=  HA»I»LN  DEVIATION  FRO-  -fan  arrival  (•,*). 
f;flc  ! *  DEHANO  HESSAGE  LENGTH. 

FIELD  as  (undefined  'OP  This  HCDEL.) 


o . :  -  ' n-sy  in  field  i 
I  I  I  SE  OufNCE  . 


INDICATES  The  end  of  ; a  o  d  type 


N  C  »  D  S  »  ' 

N  PS  N  T  -i 
CALL  GASP 
C*u  E  A  I  T 
E'.o 
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$i'*s  clt :  ss  ;  w  m  s  ( :  x ) 
i  * :  *  / 1  c  c 
j  * :  *  -  f :  •  i  o  c ) 

: * < ; . e s . c >  call  e  c b c c  < i  ) 

v»  C  *  C  M^0i?3wi!CCii*CC<  •  I 
^o:  call  f l  :t<  j ) 

i-  tC 

;cc  c  iu  :  fo  t  (  j  ; 

GC  tc  «c 

3  o  c  ;»u  ekoo«  (j) 

i  ?  T  C  5  » 

*zz  :*u 

p  ?  t  jcn 

1 1  * 


l 


»g6»Cutis£  endd-es*) 

-  »  3  C  I  Trpc  Event  (ESC  t  0  E  "  »  *  0  “  E  S  S  »  G  E  ) 

The  esc  OE  0S"»N3  'ESS4GE  *B»IV«L  psOCESSING. 

IsCllDE  it 

I 0*'0S  /Pu>1/«u:iT.N0'*,EUl,NfUIS,Eu:s»T.NtUI.«OCE 
CG»*:s  /«*u  i  2  /  o«  ( 5  ,20 )  ,f  ul  e  j  (  2  S  ) 

:£l»»«T.,GH-»T01B(j). 

:  ss*  ♦*  s 

c»u  - ist:  ice  l»t  ,  i ) 

F  c  E  E  T;«E  STJ.BT5  iFT£0  EJ  si  S  M  Of  *  oe*A*t>  pESSpGE 

i  ts  : !)  1 1  j  »*  so» 

*TS  :  2  t  J  )  «2  o:  .  -f  LO*T  (  Nf  U  I  ) 

C  «Ll  E  ;L£»  (  1  ) 

5  E  T  UBS 
ESO 

S  L.o»Ol  T  :  s£  f  u  I  E  »E  <  SE  ) 

*  2  C  E  ’IP!  EvEsT  (STAB7  O'  El'E  t  i  p  E  j  n  This  f  u  I  > 

POCCESGES  The  esc  Of  »  “£SS»GE  T  B  »  s  $  H  I  S  S  I  OS  iso  SCHEDULES  T-E 
s  '  >  *  5t*»s:  "  E  3  $  »  G  E  T  o«  ss  *j  s  S  IOS  . 

include  it 

COHPOS  /•'U«T/EuI1T,S0v,fu:,NEUIS,ELlN»T,NfuI,»CDE 

CCp"0n/“lx2/O>'C5  ,20  ,  '  u  I F  «  (  2  5  ) 

:c*«cs  /in!/  D»SENT<2C),Euj.iT(Z5) 

«  IS  The  SE-MNING  f  B  E  £  Fol  TI«E 
lsfUlS*T-Ts?y 

E  El T  IE  NOTHING  5uEC  0!  NO  T I » E  LEFT 

i fl*l!(<).LE,C)6C  TO  2 
I E( I .IE .0. ICC  TC  2 
3  E  l  :  O  EnT  a  '  ebc»  CUE 
GC  TO  i 1 1 ,  1 2 )  ."ODE 
I  Cs  T I s  U  E 
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c 


S  U  -•  SOUTINE  INTLC 


c  e  *  d  s  is  s  : « l * t 
s  I"ll  * ”.cn  e i T«f 

i'l' E-ESTS  . 


-s  ;:Ti  CA  P  b  S 
F  S  C  "  Ik'  ;  p 


‘  s :  s  e  T  s  jt  initial  conditions 

i  DAT*  CASTS  uS  ?t  ALGc=°‘IC 


FC5 


j;s 

c 

c 

c 

1 

IOC 

3d 


C 

c 

{ 

A  0  C 

1  0 

302 

303 
1  1 
30 

1  3 


include  ;  t 

cc"' os  /To * ' / tu : 1 1 .st'. f u: , nfli s . » u 

CC"”0s  /  "U  i  £  /  0"  (  5  ,  t  c  >  .  F  U1  H  ( 2  «  ) 
C0"“0N  /"JX?/  D"$  £  s  -  (  ;c  )  ,  I  Ul  ■  A  T  (  20  ) 
IF0*SCSD* 

IKs  S  t  u  s  .  N  f  .  1)  G  0  to  20 

s  f  u ;  s » c 


1st!  ,  N  F  u  1 


.  “O  BE 


SCABS  IS  CAPO  TtP£  ;  Wk  I C  k  defines  The  fUI  duration  *N0  RUN  HOOE. 
;  E  »d ( I p  c  ,4  0  I )  fu  ; ,  “OB t 

FOR"  AT  cm:  .  E  ,  ;*  ,  j;  ) 

I M "C  D  E  .  lE  . : ) -0BE  *  1 

•  MT£  (SUM  .JCC>FuI."00' 

F  C  k  “  A  T  C  1  C  Fb  I  ■=  •  ,  F  1  G  .  4  ,  '  “OOE  OF 

»  •:  i  u :  so.  is  e  £  fui  s  t  *  °  t  * ) 


STABS  IS  CASS  TYPE  II 
BUSAT’OS  ASC  wU  a  S  T  I  T  y 


•kick  defines  fui  fixed 
Of  TcIS. 


R  E *0  < I  SO  , 1  00 )  « 

FOR "AT (FTO.I) 

1  F  (  i  .LE  .  0.  a  )  GO  TC  J 
sFuISssFuIS-1 
.SITECSPSNT  .301 )  N  F  u  I  S  .X 
FOR"*  -  (  13  ,  F  20  .0  ) 

F  U 1  F*  CnFuI  s  1*1 

I  F(  X  •  G  T  .  Fu  I  )  CALL  ERROR  (2  ) 

GO  TO  1 

CONTINUE 

FUI  1 T  *  T  N  0  W 

BC  3  I *1  .NfulS 

X "Full T*  fu  I -Float  ( I -1  ) 

CALL  N  1  T  FU  1  (  I  ,  X  ) 
s  B"  *  1 


"ESSAGE  SEQUENCE 


8EACS  IN  CABO  Type  III  hhICk  OEFISES  Th£  BE"*NB  “ESSaC-ES. 

S'*B(IRD.2C0)(B«(J,NB").J*1,4) 

F0i"AT(4F'0.0) 

I  F < S“ ( 1  ,  SB «  )  .  LE  .  0  .  0  )  GO  TO  10 
S  S" »N0“ ♦ 1 
GC  to  $ 

con-  inue 

s  B" »SB“- 1 

•  SJT£(nPSJMT#3?2)  NO1" 

B?S  1  1  T  !  »1?"  B"C  •  ’  •  10  *  •  ’*  «,4E»"fTESS  of  A  0“  •  -  NO"  •  *  .  I  4  } 

.sitecnprnt.icjii.chcj.d.j.i.a) 

fof'atiis.usi.fic.bi) 

C  *L  L  S  X  T  0"  (  I  ) 

Continue 

DC  1 5  I»1 , 20 
B  "  S  E  S  T  (  l  ) «  G  . 
f  u ; . »  t  c ;  i « o . 
s  eturn 

continue 

nnp  TS  (  1  )  »NNP  T  S  ( 1  )  -  1 
“C0E»"0B£*1 
F  L  1 1  T  i  T  N  Ow 
BO  2!  I  »  1  ,  Mu  IS 
x«fu;i"*fl  i-flO*t  c;-n 

CALL  N  FT  Fj  I  (  I  ,  *  ) 

DC  3  -  I  »1  ,  NC" 

C  -  w  L  N  I  T  D"  <  :  ) 

GC  TC  ! : 

END 
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c 

c 


;  *» f  i  ( 2 > 

gc  tc  :: 

C  ON  ’  i  N  u  £ 

I»SflS'5(»,3,i,l.C.3) 

£  Os  7  JMjf 

■COOT  SELECTION  into  reroutes 
: 1 1 : .  e  i . : )  i ;  t  c  : 
c  «li  cop  » (  ; ) 
test  : (  . i L  L  1 1  t 
I  F ( A 7R  I  g ( 1  ) . &E . * )GC  TC  2 

c*ll  o  »•  c  v  e  c : ,  2 ) 

0VL  IS  DE-ano  NESSAGE  lESGTh 
0-L«ATi:BM> 

A  r  R  !  a  <  1  )  *  T  N  0  w  ♦  0  N  L 

»  tb  :  =  ( ; )  •;  cc .  ♦» t  r  jr  t ?  i 

C‘LL  EILE-C') 
0''SEnT<NF)«DNSENT(NE>-0-l 
R  ETjRN 
CON  T  INLIE 

F  U  1  W  A  T  (Nf)aE(jI«AT  (  N  f  )  ♦  X 
RETURN 
E  NO 


>:  E  > 


SUBROUTINE  FuITCNf) 

-R  13;  7 TPE  EVENT  (START  OF  THIS  RUl) 

P  E R  F  grns  The  PROCESSING  INVOLVED  vJTh  ful  Startup. 


REAL  ii(U 
INCLUDE  IT 

COM-ON  /NU  X 1 /  Fu I  1 T,NO«.  ful  ,Nf UI  S  ,  EulNXT .  NFUl  .NODE 
CON-ON  /"U x2/DN ( 5  ,1c )  . I UI f « (2 S ) 

CON-ON  /NUK?/  0-S ENT ( Jo ) , f ul V »T < 20) 

«  «  F  U  1  •  f  L  OA  T  ( N  t  U  I  S  ) 

c - FOLLOWING  STATE-ENT  IS  saving  FUI  t  TI-E  to  PREVENT  DRIFT  OF 

E--..-EUI  TINES  .ITM  RESPECT  to  each  OTH£P  due  TO  ROUNDOFF 
IE2ne.es.  1  )'  f  ul  1  T  aTNOw- * 

C - TEST  FOR  first  CTCIE  Through  *aj  OR  C*CL' 

c - SKIP  PLOT  call  if  first  N4J0R  CTClE 

I  F(  Ful  1  T  .L  E  .  (  TTREG-X  )  )  C-O  TO  1 

C - CCLECT  ONLf  100  SETS  OF  POINTS 

I  F  <  n  np  T  S <1  )  .GE .1 00. )GC  TO  1 

C  A  IS  ThEFREE  »Ul  TINE  AvAulieu?  '0'  SCHEDULE  0'  DE-and  *'SSi 

*S*U1-FUJF*(NM 

C - -PLOT  ARGU“CNT$ 

C - 1  IS  DUE  NU-3ER  AT  ful  TINE 

C - 2  IS  The  DE-AND  E  S  S  A  G  E  lengths  SENT  PERCENTAGE  0'  ‘VALAjLE 

C - IS  UNUSED  TINE  AS  PERCENTAGE  Of  NON  F’lEO  t:«e 

AMI)  pf  LOA  T  ( NNG ( <  ) ) 

A  A  (  l  ) .O-SE  NT  ( NF  )  /  A 
AT(!).FUIWAT(NF)/A 
C*LL  GpL0T(«»tTN0w,1) 

’  C  On  T  ;  NU  E 

Call  «  I  S  to  <  ONSE  n  T  <n  e ) ,n  f ) 

I - — jrsc  TClAL  ACCU-ULATO'S 

C-SENT(NF)«0.0 

FU1h»T(NF)»0.C 

C - »  IS  NC.  TTHC  0  F  v[,T  F  u 

A«fLI1T«Fu;*FL0AT(Nf-1) 

CALL  Nil  Fy  [INI  ,l  | 

c - schedule  the  free  f u i  ti 

A  TR  I e ( 1  ) »T  NO. * F  U I F  A  ( N »  ) 

*’SIt(2)«2;0.*FLOAT(NE) 

»  TR  I  t  (  J  )  .F  u  I  -  Fu  I  F  A  (  NF  ) 

Cal.  '  IlE-  (  *  ) 


GE  S 


FOR  this  fu;  nu'9'R 


E  Start 


’h;S  FUI 


INaT  IS  .hen  neat 
F  .IMT  «  T  NO  .  *  F  u  I 

IS  CJ5»ENT  flj 

N  e u  I  ml 

RETURN 
E  NO 


FUI  STARTS 

Interval  Nu”=£R 
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su?cgut:ne  o  h  a  ? :  v  <  n  : ) 

*  type  c  v  e  n  t  :acr:va^ 

P5C-C£SS£S  T  *£  A  ft  ft  j  v  a  L  C(  0 
G  f  T  « E  n  £  x  T  D£nan;  -E$$fcGe 


of  *  : [ *■  i \ :  Mf 

E “and  “E $$ aCE  S 

a  ft  B  1  V  A  l  . 


sage.  ' 

an:  CallS 


IS  The  DEMAND  “  £  $  SAGE  OEf  INI  TIO^ 

1  . y  )  is  0E  f  1  NEC  A  :  : 

T  *  0  y  s 

j  i;  ub;  ivi  l  T  I p» E  •'San 

»aE5C:STSl5UTI0N  CODE  vAi.bE  i?Cl'T  Man 

*  =  3sKESSAG£  lEnGT- 

i:*i 


f  c B  $  c  *  e  c  u  i 


I  N  C  L  w  D  E  :t 

CC“"0N  /Yun/Fuir^0M,  fu:  ,  ^UlS.fvlNifT  ,:,<u!  »  M  D  £ 
•:0^-0N  /«uO/D',(5  ,t  !)  .  f  U I  f  *  <  2  S  ) 

•SCHEDULE  ThE  NeXT  GEA-.AKC  “ESSAGE  A&tlVAt 

C*tL  NXTD“(KD) 

- o  U  T  Cu8®ENT  0  . * .  ON  » a;  TING  DUE 

A  M  i  6  ( 1  )  O  *  <  3  ,ND  ) 

A  TR  1  3  (  :  )  *f  lOA  t  <  NO 

AT3J:{?)*T NO. 

call  f  I  L  E  **.  ( ?  > 

ft  ETuSN 

END 


SUSOOUTInE  NXTfuI(I.*H£N) 

SCHEDULES  Tm£  s  T  a  ft  t  Of  T“ S  N£xT  fUl. 

C  “ ON  /WJ  X  1  /  fu  I  1  T  ,  N0“,  fu:  ,  Nf  UI  S  ,  f  U  INK  T  ,  N  FW  :  ,  *'0C£ 
C^““CN  /rj X 2 / DM < 5  .E 0 )  ,  F u; F 1 ( 2 5  ) 

INCLUDE  IT 

atg;6(1)*wm£n 

A  Ti  1 5 ( 2  )  *1  GO  .  *F  LGA  T  (  I  ) 

c  acl  f : l e ^  ( *  > 

ft  c  T  J  ft  N 
END 


S  cs- Cl  t I \£  NX  TDK  (  :  ) 

SCHEDULES  a  or  : V  A  l  Gf  T“E  n£  x  T  DEMAND  “ESSAGE. 

C  ?  “  “  ON  /mu*T/«u;1t  Mi  *  «  {  L  !  «  f  U  :  S  »  f  w  I  S  r  T  ,  .n  f  'j  !  »  “  C  D  E 
CC“*GN  /«U*2/DF»(S,.0).fw'Ifx(2S} 

INCLUDE  a  * 
p “1 *DM  2  ,  1  i 
p  L  G  h =-p  m  ; 
j  **C  D  (  I  ,  ; )  *  ’ 

A  Y  i  ;  (  1  )*TnO.*D*  (  I  i-.NFSMALjti.PNl.j) 

a  ’r  16(2 )  *-:c.  *f  loam  : ' 

C  All  f  I  LE*  M  ) 

ft  E  T  U  ft  N 

END 


:  so 
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MUX  OB 

■’•.'  C  {  —  %  ) 

*  p  a  '  c 

;  :  -  E  N  f  i  *  s  S'rMM 
;  CM«»GN  QS  E  T  (  5  "‘C  ** ) 
r.ulVHtu'i  l‘.sf  nM/.SFT(D) 

'  :  *  *  C  N  /  G  c  c  *■  W  A  T  »  ;  :■ (  S  1  ,  JiVNT,'*H,vf  :(1  ,C)  f^LEMOO'  ,V^1CP,NC0D«  , 
iSNAPO  .  N  N  A  P  T  ,\SA  T  6  ,\Sf  I  L  ,  N  N  U  (  1  C  C  >  ,N\  *  R  v  ,\POS  T,PPAB'*(  *  ^  ,  L  )  , 

\^d£.,TTCL«i,TTMN,TTSI3(:'),TT5fT 
c :  * *  c  *.  ?  d  n  : ;  > .  d  :  i  n:cj  .^HL.iTNG.jst^.ifLAU1.:) 

N  t  i  D  t  N  Nt  *  S  *  N  N  fc  JI  ,  $  G  (  1  .O.SSlM.;)  ,  T  T  •>.  c  jr 
COM^ON/CCO*!/  AAEiB,DTv**,OT,‘:N,-TiAv,  ;!T?S  ,Li.E°P  flljiv  .LLj^r^f 
f.  PC,TTLASf»TjAV 

c:MHa‘i/  :;c^w/  c tpl t  <i o  )  ,«h,u(^)  *:ic»o.iitapm:>  ,j  jch 

;.  ( ^  c  c )  .cla^c  c  c c  ,‘>)  ♦  l  i.  a  a  m  ( :  <  ,  c  l  a  « ?  (  n  ,  ?  j  ,  l  l  a  p  t  ( ^ e  t  2 ) ,  l  1  p  *  1  ( i  c  >  ,ll 

!,PlO(  7  0)  .ILPIT.USL'P  l  1  5  >  ,  L  l  S  *  *  M  0  J  l**P7S,‘.NCft.<2S>  .  N  N  C  L  T  ,  \  N  H  IS  *  %  N  P  L 
5  T  ,  \  V  P  T  $  (1?)  ,  N  \  $  T  A  #  N  N  V  A  R  (1  ?  )  ,P  PH  !  (  10)f^PL0(  10) 

C0**0N/GC0»5/  I  IE  vT  ,11  s  r  D  (  C  )  ,  J  J?E  f.  ,  J  JCL  R  .  ""M  T  ,MMON,NNA“t  (  3  >  ,  NnC  F 
?  It\S0A  r  ,S\PT,\NU  Ti\NPCJ,NNPR%,,NNFnS,\NRu\,NNSTR,NNYR  ,  S  S  6  £  C  (6) 
C^MMON/GCOM^/EEN-dOO)  ,  I  I  N  n  c  I  C  C  )  ,  r  *  p  N  tr  (  ICC)  ,.<'lAifJ  (  ICO)  ,  Q  -  T  I  v  (  1  0  C) 

■.  .s$Ot.v(<s,‘>>,ssTPv(CS.e).vw.  mgo 

f  N  ^ 


W  P«0GRA“  *U<:& 

I  N  C  L  0  0  E  IT 

C0**CN  /wyi1/NDyl;»(A,^)  « T  *  s  f  \  T  <  C  S  ) 

c ommgn  /mu * :  /  fu  1 1  t  f  f  u : ,  sf  ->i  $ ,  sf :  a  (^  *• )  ,  f  i  a  ( : f , ?5  > ,  tcur  p 

C  CM  MQN  /*U  A  *  /  NNO  I  U  •  N  Sc  US  <1  5  )  ,  S**E  AN  (  1  '  )  ,  A  ^  M  ^  )  ♦SLNG(1S),SlVAR 

1(15) 

C : " *  on  /mux4/M'-#tm£ANM5),tmvap  M5)fTtHN(l5)  ♦  T  l  v  a  a  (1  5  ) 

COMMON  /*u tt/ U3US, IRPoS 

COMMON  /muxc/NTP  »TRES(15)  fTPAO(l5)fNuMvM5)  ♦  !  0  *  C  1  S  ) 

CCV.-ON  /M'jx"  /  IdUST,-*SGTYp  f  M  S  G  N  G  W 
DATA  I Sy  /  1  / 

l - INPuT  CARD  C  E  F  I  s  I  T  I  0  N - --- 

c 

;  INPuT  CAPD  tYPE  IS  DGMSEO  Py  T«E  JTTEb  E\if®ED  IN  COLUMN  1 

:  defined  as  follows  : 


*  =  EX1T.FI  MSmED  •  ITm  input. 

U  =■  DEMAND  MESSAGE  F(T11fAFlC.O)  f  C  R  ^E AM  ,  VAP  1  A\C t  ,  . t SCT H  ,  T£ C «  .NC  . 

F  =  FlxEo  MESSAGE  F(T6,l5tT4F5.:)  F c®  Fui  Mu^b'S  AND  U  MESSAGE 

LENGTHS. 

T  S  TERMINAL  DO«N  F(7ftflS#AFlC.C)  F  o 0  TfCMjNAL  N  L‘  M  3  E  P  ,  MEAN  AND 

V  A  F  1  ANC  t  CF  rCCJPAN'CE  ,  AND 
LENGTH  AND  variance  of  DO«N. 

=  NCISE  F  (  TC>  t  I  S  ,  CF  1  Q.C  )  F  o  0  aUS  INCI  CATCO  (  1  ?  =  LE  FT  , 

PI  Gh 7,30 Th),  *E  an  and 
VARIANCE  of  0  C  C  U  0  A  N  c  E ,  and 
length  and  variance  OF 
duration. 

-  =  %."=£»  OF  FuIS  F  (  It  ,  I  5  ,  FI  c  .  0  )  FCP  NU-roE*  OF  fu!S  ,  Fui 

INtE»VAL  (FUN  DIMENTAL  J^DATE 
INTERVALS) . 

R  -  RESPCNSF  ’iME  F(T*,iSf0f10.O)  FOR  TE^lN»i  NUMBER,  mean 

RESPONSE  TI-ft  VARIANCE  c  F 
R£  SPCNSE  TIME, 

C  =  C  C  -  -  E  M  CARD  IN  D  «;  C  *  -  NC  ACTION 


- £  vENT  D  E  F  I N I  T  IONS - 

£;ENT  '  fPf  3  AO£  DEFINED  d*  *uND»ED$  (ICO  AND  EVENT  SU6“TvPES 
A  - E  DEFINED  UNITS  (1),  AS  F„LlO*S: 

' w  0  “  -ATCH  dog  Tl^E  L 

i . t : me 

:  .  E  /  E  N  T  N  u  M  -  E  R 
3. message  N  -j  m  o  E  R 

: c  -  :n  te^imh 

i . t i -e 

C.E/t‘.T  n  u  °  E  0  *  U=":xH  Destination 

Z  .  M  F  i  <  A  s  i  NUM3E  R*  1  :  0  :  »  S  :  F  H  ;  I  s  Li  n  .  1  J  -  c.  o  u  •  s 

CF  “ITS  RJ  iN  »  . 

’ : :  -  t{c»m'»4a£  response 

1  .  T  I  V  F 

C  •  E  V  t  N  T  N  J  M  a  t  o  *  T  t  R  M  ;  N  X  L  i«  Is' 

!.**f  jrA;E  n  u v  =■  e  o  *  i  : . :  • r.  r  f  « :  t  ■  left  .  r::rr 

c  F  M  »  T  C  j;  ,Mr 


\ 
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a  :  c  -  noise  s  t a o  t 

1  .  T  I  *  E 

0  .  E  V  E  N  T  N  U  M  n  £  P  ♦  r-  U  $  DESIGNATION  (1-1) 
3  .  *  0 :  S £  N  0  Mfl  E  0 


c 

c 

c 


Mist  E  Mi 

1  .  T  I  *t 

(.EVENT  N  «j  M  P  (  o  ♦  i  U  S  DESIGNATION  M  -  l  ) 
l  ,  NOISE  N  L  M  ?  £  P 
T ► #  *  I N  A  l  DOWN 
1  .TIM 


t 

C 

C 

c 

c 

t 


"  Z  “  T  c  R  "I  N A  L  'JP 
1  .  T I  ME 

-.tVE‘.T  NU  **  P  £  P  ♦  TEOPlNAi.  MlMff  E  0 
- J ;  -  f ui  TIME  START 

1  .  T  I  *  E 

2. EVENT  NU*P£°  ♦  FOI  NuPBE» 

1  r  0  0  *  DE^a.nD  mE  5  S  *  6  E  a  «  p  I  v  a  l 
I  .  T  I  *  i 

2. EVENT  ♦  Dc"AND  MSSA&E  Somber 

mESSAGE  Sb vc  f  R 1*  ' 0  C  *  S  TCP  E  I  *  E  0  TrPE 

? 0  C  *  S  ego  DEma\d  T  tp  E 

N  rfc  o  A  =  ‘ 

N  PPN  T  *e 

call  0  a  s  p 

C  Al  L  E  *  I  T 
E  »•  D 


s i 1  a p c u t  :ne  :ntlc 


c 

L 

C 


BEADS  IN  Tmc  SIMULATION  DATA  CAPOS  and  SETS  UP  ThF  INITIAL 
C^ND;flONS  f  OP  The  SI"wlATION  EIThEP  from  The  SIMULATION  InP'jT 
DATA  CAPOS  OK  3(  ALSESPAIC  STATEMENTS 


INTEGER  CA  »  0  <  SG  >  i  SC  p  TCh  CE  0 ) 

include  it 

common  /*UXl/\D",DM4,25),T"SENT(r5)  .  , 

COMMON  /Mjx2/FuliT,FoI.NFjIS,NFl*lcS),FlXf  .,25),  I  CUP  A 

COMMON  /MuAT/NNClSE#NScUSnS),SMEAN(lS),SM^AB(l5),SLNG(l5),SLVAP 

1  (  1  S  ) 

C  ^MM  r  s  /MliXA/nTm,TMEAN(  15),TMVA»05  )  ,  T  L  E  N  (  1  S  )  I  TL  V  (  1  5  ) 

COMMON  /!*UX  </NT«  ,TR£  S  n  3  >  tTBVAP(T5)fNUMV(lS)  ,  I  0  <  (  1  5  ) 

COMMON  /MUXA/’LBUS,IBauS 
C  3  m  M  C  N  /Mux’/ieuST.'-SCTrp  ,M$GNOw 
common  /mu  XUS E / E U  IPP S  ,F me  ,ome 
C  C  M  *  o  N  /  Mlj  X  R  £  $  /  I  S  E  S  E 

COMMON  /STAl/NMSGH,NNL«NNP,NN°fNTO,NhSG 


DATA  NC/lHC/ 
DATA  N  X  ,  N  6  f  N  T 
N  N  M  s  0 
N  NL  y  2 r 


Nf 


,  N  N 


,SU/lM<  ,  1  H  0  ,  1  hT  ,1MF  ,1wR,lHN,lMu/ 


f  U  I  1  T  =  T  N  0  W 

nng i sf - : 

n  r  u  i  i = : 
s  •  m  = ; 


i 
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S  T*  -  v. 

i  i  _•  u  s  - : 

i  *  b  l  s  = : 

I  TuS  t  =  : 

!“  SGT  VP  =  1 
F  =  T  SO  „ 

i cfc  s i  =  : 

s  m  s  3  h  *  c 

NM  s C 

N  N  c  s  0 
Nfv:k 
\  v  $  G  =  ^ 


►  r  j  j  ;  i  2S 

f 

sum:):; 

DC  ’  1=1,15 

;  Tn  < : ) =c 


f  :* 

: c  a 

CCS 
;  t  a 
F  oj, 
t  N  C 
1  C  = 
to  p : 
F  C* 
I  PA 
I  '  < 


Tf(‘.p»sT  , ;  ■» c  ) 

*  A  T  (  *  1  •  ,  *  c  :  ,  *  ; 

T  !  S  b  E 

D  (NC»  iP  .  10:  ,f  s 

*  a  T  (  to  r*  *  ) 

o :  i  (%\  ic  o  •  v  c  a 

C  AC  0  (  1  ) 

Tt<NPkNT,5C-1)C 
«  AT  (  1  x  ,  T  1  1  ,oC  A 
G  =  Jp A  G*  1 

ipag.le .<•*  >oo 

Tfc  ( N  P  8  S T  ,  ?  ZJ  ) 


S  P  'J  T  CARDS 

D  =  3<;)CARr 

T  C  *  )  C  A  ~  D 

A  8  D 
1 ) 


TC  SO^ 


I  P  AS  =  C 

C  C\ T  l s o  E 

IFllC.E5.YOGC  *0  -5  f 
i f (  i  c . t  a  .n  c )  oC  t o  i 
I  f  (  I  C  .  E-.  .  \  D  )  GC  T  c  10 
1  F (  1C. EG. NT)  GO  TO  ?0 
P(lC.EC.Yf)  GO  TO  2  0 
I‘(IC.E2.S*)  GO  TO  AO 
I '(  IC.EQ.NN)  CO  TO  5  C 
1M1C.E2.YU)  GO  TO  tC 
Call  F  *  »  C  S  (  1  0  ) 

GC  TO  1 


) 


10  =  OF  m  a  N  D  y  6  S  S  AGE  capo 

C  T  iNw!  E 
Nr^ND'*  ♦  i 

OPCODE  (*0,101  .SC8TCH)  (&"<:, AO">,I*1  ,  <. ) 
f  Cft^AT  (T  1  1  fu  10.0) 

G  0  T  c  1 


:c  *  F  I  mo  ME  SSAGE  CARD 

C  CN  T  1SUE 

OrCOOE  (50,102  i  S  C  8  T  C  h  )  I 

F  ^  R  w  A  T  (  It  ,  IS  ) 

J  =S  F  I  *  (  I  )♦  1 
K  =  J  *  1  ! 

DECODE  (SG,i::,SCRTC*><Fl*  (l,I),L  =  J,k) 

F:RMAT(Tiit:«.PS,0) 
p ;  <  ( i )  =  < 

G  *  TC  1 

1 J  =  T?bv1UL  OOWN  CARD 

C:\TIME 
C  zs  T  M  •  1 

DECODE  (50,1  C  A, GCftTCto):  ,  T'-E  A'aNT14)  ,T- v*8  (N  T1  )  ,  TlEY  (M'4  )  , 

T  l  J  A  n  (  N  T  m  ) 

;c 

G  c  TO  1 

a C  2  TPK*;\AL  PtSPONSE  T!**E 

\  T  I  S  G  P 

:;COwEC?D,1^i,jCRTCM);  .  T  3  E  S  (NTR)  ,  TRVAR(sTR) 

f"w^a’(tc,  ; « ,  :f  i : > 


1 
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*  W  *  *  J  1  S  E  CARD 

t'sT;svj 

s  so  :  :>£  ^  s;i  i c  t  ♦  i 

:  ?  c : :  e  i 0 . ,  i A  e  ,  s  c  *  t  i  *  )  v  s  f  u  s  (  \  n  o  i  *  t  ),^[hmsscise)  .s^varcnncise  )  , 
i  «lnc;nsj:s?)  ,$LwAR(Nsoist ) 

F  ?  fi  *  A  7  c  T  £  ,  :  ^  M  :  .  C  ) 

r.  t  2  i 

\  *  F  „  :  S  L  ^  E  0  'A5D 

c  s  t  :*,u 

;  f  c '  g  f  ( 5 : ,  „  i 

r  *  S.»  a  T  (  T  t ,  I  r  ,  f  1  '  .  ■  ) 

o :  r ;  i 

tf  *  is;  : sp.t 
D  t  «  A  N  0  v  E  G  f.  A  ^  t  <i 

l  :  n  T :  v  u 1 

:«(skMt,.)  g  j  t  ..  ;• ; : 

,s;  Ti  e.fSST  t  1  :  3  ) 

f  ; « *  a  -m  •  i  •  ,ti:.*:l-an:  *  e  c :  a  :  e  r>  ‘ ,/,  •  j  m  ,  t;?o, 'variance  '  ,tao  , 

’■LtSGTN'.^'.'TfS-lNAL  Nv  .  '  ) 

;  r  >  c 1  i*i » *  •  d  •* 

■  s;  ’Ev'npcnt  .  rv)  c-(  j  ,i  ) .  j  = 1  ,aj 
f  •:  r  -  a  t  < :  a  ,  f  i : . ,  ,  t  . :  ,f  \  . ..  ,Tij,Mc,»,fi;,Mj.o 
c :  s  t  ;  s  c  f 

*  i » i :  - 1  s  i  t  o  e  $ 

C^MlSvE 
s  a  j :  =  \ « .j  :  s 

IhsM.i*.")  C*u  -  SJCMD 
. » I  T  t  <  SP"N  r  .  1  1  1  ) 

f  r  R  *  a  ’  (  ’  1  f  u  1  -  s  .  H*f0  MESSAGES  -  *  E  S  $  A  G  £  LENGTHS*,  /,*?•) 
o  v  £ :  i  :  *  i  ,  s  f  u  i 
j  =s  f  ;  t (  i ) 

DC  u t  *  s  1  »  J 
L  *  J  -A  •  1 

i  m  *  i  m  i . ; ) .  g  t  . : . )  g  ^  *  o  : :  5 
c  r  s  t  ;  s  o  e 

i  =■: 

S  f  I  *  <  !  )  *l 
J  =  L 

I  m  j  .  l  E .  C )  :  c  to  :  2 : 

-:;’i(sPB'.rtnw)’J  ;f[  *  i  l  •  I  >  .  i  =  1  .j  ) 

r  (-  v  a  T  n  i ,  ;  ’ ,  r  ^ ,  i  ■  , { ’  x ,  *  i  C  ,  f  1  o  . ,  t  !  ^ m  c  .  ^  C  ♦  n  C  .  a  ,  t  \\  f  i  o  .  a  ,  / ) 

1  ) 

of  T ;  <  ?1 

•  - 1  t  t  <  n  p  r  s  t  ,  i  * ;  >  :  ,  j 

C  A  N  :  1 N  l  E 

7  E  =  M  :  SA  L  D  Ok  N 

•  0  ;  t  fc  (  s  p  K  %  T  ,  1  1 1 

FGa*ATv'l*fT!:.,TERv:‘«At.  FAIlT  PAOA-ETi:»S^^':  T  f  R  «  N  0  '  ,  T  ^  o  . 

’  ”*f  AK  '  ,  '  VA:  ;  SSCE  Vt  D,  ’if  sc  Th‘  ,T?:,  '  VA9  i  ASCE  CF  L  E  S  G  7  H  •  ) 

7. 

•  c  :  T  (  f  S  P  3  S  T  ,  111)1  ,7*EAMJ)»lMVAP{I>,TlEN(I)tTL’/A5CI) 

f  f  ■  "  aT  (  i  j  ,  ,  f  1  "  .<.,7i,;tM0.4,TftC%MG.**ToOtMC'*0 

c  A% T 

te:*;sal 

iFlsl^u,  J  Go  7  „  tM 
tf  (spist  ,r,) 

Fr^iT(’’',,;:,,Tt;*;sAl  RESPONSE*  •/*''-  T  E  0  **  SC  '  ,  T^C  ,  ’5CSPCNSE  1  , 

*  *•.;  ,  *  <  a  • ;  a  *,  c  •.  :  f  s  f  :=>  ■;*.  c,  e  T  i  M  e  •  ) 
i  *  •  : =  *  » '•  r 5 

•  .  p  i  *i  r  ,  i  *  i T  c  e  :  (  :  ) ,  t  r  v  a  r  <  ; ) 


Sw  IS* 
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C  rM 

i  m  nno  is e  .  lf  . : )  Owf  to  <:  *c 

«  t»  1  T  c  (  NPRN  T  ,  1  '  S  ) 

['\"iTi'r,T;"('v:;'(  FttSA-uFcs ' ,  /  ,  ^  =uS  c  c  d  c  *  ,  r  2  0  ,  '  *•  e  a  n  * 

1  T„ 0  *  VAR  I ANC  E  *  ♦  T O  ,  * Lt NG Th  *  ,  TsO  ,  V AR  i  ANC E  OF  L  E  N  r  T  h  *  ) 

Dr  2b  '•  1  ,  SN01  0  E 

•RITE(NP*NT,1  17  )  N  3  B  'J  S  (  I  )  ,  Z  »  E  *  N  (  I  '  ,SvVA«(  ;  )  ,HNG(  I  )  .SlVAt  (  j  ) 

f  c«  *  at  { i  a  ,  i  \  r  4 ; ,  ►  i .  4 ,  ta  c , '  n.  t ,  rt  o,  n  ,  r  -  o ,  f  i  c .  i ) 

c  rs T  lMjt 

Su  ve  :  R  0  f  F  ^  :  i> 

C  ON T 1 M  v  f 

«RITE(NpRNT,Mo)NFjIS,fUI 
f ' « *  a  r  t  • ;  \  t  u  :  s  *  • ,  :  5  *  •  r  l  i  *  • ,  f  i  c .  s  > 

ILTup  ALL  c  V  E  N  T  $ 

31  M  AND  '•EG  SAGES 

I  F  (  n  CM  *L  E  .  C  )  GO  TO  !  3  0 
0  0  ?11  1=1  ,  NO  M 

ATR  I  b  (  1  )*TV?*»*nNkT  (  D  ,M  (  1  tI  )  ,  0  *  (  £  ,  I  >, : ) 

a ibO:1  ::c.*flcat  ( i  > 

ciwL  f :  l  tM  1 1 ) 

Terminal  0  C  •  n 

continue 

I  f  (  N  T*'  .  L  t  •  j  )  GO  TO  3  50 
or  3 2 1  i=i ,  n  t  * 

A  Tk  :  Ei  (  1  )  =r  sc«  ♦  RSXT  (  TFfAN(  !  )  ,  T  vV  Ah  {  I  )  .1) 
AT6I3(t')=A.^.4FL0AT(I) 

C  ALL  f  I  LE*  (  1  ) 

NOISE 

Continue 

i  l  b  l  s  *  d 

I  Q t>0  S  =  G 

;  f  <  nsc  ise.le.  :>  go  to  ito 
:o  3. si  1=1, NNCISE 

ATS  Io(  1  )=TsC«  ♦  RNaT($<vEAN<I),S**VAS(1>,;) 

a  T  R  ;  6  (  :  )  •-•  w  :  0  •  ♦  F  L  CA  T  (  N  5  ?G  S  (  I  )> 

*T»I6F')=I 
C  ALL  ‘  iLt"  C  1  ) 

fU  I  1 

C  ON  MNu  E 

IMNFUI.lE.O)  Call  E  e  P  C  » (  1  !  ) 

A  T  R  I  3  (  n  =  T  N  0  * 

A  TJ  ; 0  (?  )  =a  C i  . 

C«LC  F  I  L  E  M  (  1  > 

initialization  done 

T  CA  Ct  S  T  A  o  T  T  I 

a  t * :  b  ( i  >  =  :  . 

A  T  5  I  5  <  2  )  «  0  . 
call  F ; L i *  (  1  ) 
trace  en:  a  sc.  t  :  *e 

A  '«  I  c  (  1  )  =  1  .  1 
AT»  I  •;  (  2  )  =  0  . 
call  F  I  L  E-  (  ’  I 

return 

t  N  0 


1  38 


, :  ;  7 1  \  r  j  i  j  t 


•; «  l  i  r  ;  -  s  '  <  i  ,  r  %  • .  »  .  ?  > 

X  :  i  -  -  'J  'j 

v  A  L  L  T  ;  m  S  r  (  ,  ,  j  S%„  ) 

*  ='•*.  S'(  1  L  “*  ‘J  '  *  !  K  f  „•  ;  ) 

C  A  L  t  !  ;  ■*  T  i  *  ,  J  ) 

£  S,  j 


« l-  t  :  s  e.  *.  * T  *  s  o  ( ;  a  *  > 

■iCU-Ej  T-£  N£lT  P0S1JEM.E  C»Ll  »C  »  TES'INAl  EVENT. 


/  «u  * -  /  <  v.  :  1 7 ,  <  s  i ,  ••  f  ui  s ,  n  > :  *  u'  5 ) ,  >  ’■  »  1 ‘ . !  S  >  .  J  c  u  *  ’ 

/'*J»S/NJs.TPSSf1')  .TPVASMST.VJIAVE’S)  ,  I  C  «.  C  1  ^  > 


I  S  c  L  o'  0  fc  *  t 

E  -  r>  «  N  /Mil  /Nt',,3F'll  .  .f  /  .  T  ”  S  E  '<  T  <  ?  \  > 

C  "  **  *  C  N  l  *U  X  *“  F  ^  I  <  T  , 

;  '  »  « v,  n 

c  - «  -  c  s  /  -,  ,j  a  - / :  l  e  u  : . ;  a 3  „  ■ 

n«CN  /  i  7  /  Isa  s » .  “  s  G  T  i?  , -Si  nc- 
c  ;““cs  /«i «  j  i  r  /  j  i  r . '  i :  s  ta 

C-«n;N  /  *  ;  i  l'$  E  /  ‘  U  1  P«  S  ,  f  »£  ,  D“E 
;  G  »"*  CN  /  s  T  A  1  /  NH3  o  n  ,  N  L  •  .N  P  ,  Sb  ,  N  TO  ,  N  ■*  S 

A50,'“ENT  •  A  “  »  A  3  F  S  L  l  3  »  !  N  0  »C  S'il  bit  v  *  l  J  t  S  AND  «E<MN5S 

i  -  Fui  t :  - s  is  oio»iNb  n:- 

t  -  ,uci  r  i  v  f  ;)  j  i  event  is  cco-piNi  nc- 

3  -  A  N  C  5  “  a  L  DISPENSE  IS  SCOOPING  Nil 

T  I  J  T  ;f  Fj;  AND  Ajj  t  ll  ta  a  *a  f  s  S  A  c  t 
i  F  (  (  ;  a  *  .  :  ,  ,  ’  )  .  A  N  0  .  <  I  9  u  S  »  .  N  E  .  0  )  )  -  F  T  U  0  N 


>,  1 1  5  'I  send  A  «£  •/  ;  A  J  t  -  :  I  '  £  »«:  Nf  !I»1 

s'  t  •  '  i  ; ,  ’ ' ) . < s  S ’ *  p 

C  '  *«  T  i‘>o  f 

;  _  & r  T  vM’f  5  - : ,  t  - 

v;  .vii 

i  *  T  N  C  -  -  7  J  I  •>  T  A 

call  - :  s  t  :  (  * ,  ‘  ) 

;  *  t  ;  ;  a  M  .  ■.  £  .  * ) .  a  \  j  .  i  :  f-  ^  •  - .  1  ) ) : m  c  * T  *♦  o  • 

:  j  (  i  t  n  o  w  - T  - 1  j  / . .  t  .  1  ”  T 1 


;iu  c:l  .t  «  * . 1 ) 

- . v  i.  -  ; D  - r 

.  - .  l  :  -  l  : T  <  * . : ) 


I 
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i  c.  < v  $  ;,nc  »• ,  s )  ♦  i 

X  =  F  l  C  A  T  ( .%  f  ft  )  *  .  5 

A  T  R  lc<1  >  =  T  N  0  •  ♦  F  I  X  {  M  s  C  N  G  w  ,  ICUBf  > 

ATS  :  *  ( ? )  *  2  o  o .  c  ♦  u  *«  f  <?  -  <  i . ' .  * ,  i ) 
a  ’B  16  (  r  )  ='-SGSC-ML3J$*  1  CO  :.  ♦!  o^.jr  .  !  occc: . 

CALL  F  1  L£  m (  1  ) 

.ATCh  DOG  FOB  MESSAGE 
I  =  A  T  £  I0(i)  -;o“. 

»=1#0$*(F:x(^5oNOtet:C:jBF)*!»fS(I)*TBwA»<I)) 

A  T  B  I  fa  <  1  )  =  T  S  c  -  •  A 

A  tb  !  E*  (  2  )  =  1  00  . 

A  Tn  I  is  i  J  )  =  'A  r  r  N  c  - 

C  All.  F  1  L  t  M  L  1  ) 

“  3  L  N  c  *  = M  .>  G  v:,  •  *  1 
:  -•  v-  s  i  - 1 
sM$G=NMS J»  1 
«r  t  T  u  B  N 

C  CN  T  i  N  E 
-C-oTtP:.' 

F  M£  =  ts:  . 

GC  TC  1 

cant;ue 

DfMASD  M  £.  S  S  *  O  F  LOOK 


T  =  r  TC  SEND  SC«E  D  E “AND  MESSAGES 
<=t:"e  °  e  m  a  !  n  i  n  g  till  .next  f  u :  START 
*  =  (  F  l  I  1  T  ♦  (  I  c  b  ®  F  •  F  u  1  ))-TMC. 

S^LEC’  CNTfir  F  ft  C  M  GUf 
I  s*  F  E  C  ) 

:  c (  1  .L  E  .  0) GC  T0  9  C 

call  CCFru; 

:  *  L  =  *  T  ft  I  8  c  1  ) 

:  F I DML .GT . x  )GC  TO  9  C 

call  c^CuU,?) 

A  Tft  :  b  (  1  )  =T  NO-  ♦C-ML 
I  =  a  T  s  I  ?  (  i  ) 

A  T  B  I  c  (  C  )  =  2  J  0  .  O  M  (  fc  .1  ) 

ATQxe<!)s:tr-us-iocc.-IBpus*ioc;co,*:*?oc* 

CALL  f  1  L  £  M  (  T  > 

TICES’  (ICJ  BF)  -  Tm$ENT  l!CL»BF  )  ♦  D  *  L 


-  =0"  <«.  .  M 

*  •  C.  5  •  <CML*Tft£S  (  J)*TCvAB<  -  )  ) 
A  T  «  I  l-  (  T  )  =  T  N  "  -  ♦  * 

A  T  B  I  b  <  c  >  s  1  v  '  . 

A  ’  A  I  t  (  T  )  =  L  G  C  .  *  I 
call  f  :  L  E *  (  *  ) 

I  r  o  S  T  =  T 

S  M  S  0  -  N  -  E  J  ♦  1 

*  f  7  U  *  N 
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¥ 


c 

c 


c 

c 


S  I’sOCUT  INE  C  T  s  r M  ( ;  T  «  k  ) 

HANDLES  m  E  J  S  a  Cc  ARRIVAL  AND  SUc-St'ioiNT  PROCESSING  AT  A  Tt^hAi. 
AND  GENERATES  Terminal  response. 

INCLUDE  IT 

COMMON  /MU<c/NTOlTRES(1c>,TOvAP(TS)fNUMV(15>,ICr(15) 

CO**' ON  /*U*t'/Iw3US,IRRUS 

CP^mcn  /ST  A  1/%MSGh,NL  f  N  R  »  N6,NT0*N^SCj 

VG D  U  L  E  frH  TERMINAL  RECEIVING  a  Call  AND: 
a.  GENERATING  a  RESPONSE 
c .  NO  ACTION 
Dt °E  NO  I NG  ON  : 

A.  TERMINAL  IS  OPERATIONAL 

r.  MESSAGE  RECEIVE  READABLE  FRO*  AT  LEAST 
ONE  BUS 

STATISTICS  COLLECTION  IF  ANT 


C  TkST  TOR  NC1SE  HITS 

c 

IMT»S*TB  P(t)/K0jCC.*.5 
iuTL-<ATC!3<3)-<IhTR«TG0000.))/TG03.*.S 
f*  $6  =  a  T  R  I  9  (  3  )  -  ( 1  v  T  R  •  1  C  00  00  .  J  -  (I  h  T  l  *  1  COO  .  )  ♦  .  5 

C  NO  RESPONSE  IF  h] T  ON  ?OTh  SIDES  OR  TERMINAL  DOWN 

C 

IF((IhTR.GT.C>.CR.(IhTl.GT.:))n-SGh=NmSGh*1 
: f ( (  l»Tff .67 .0  )  ,A\C. <;w7i.GT.0)>RETURN 
i f  c ic*  ( itrm).gt .o ) r  f turn 

C  Ok  -  GENERATE  re SPOnSE 

c 

A  la  16  (1  )*T  NO**G'<jn  (  Tpf  s  <I7PM),TAVAR(ITRM),1TR>-) 

A  TR  I E  ( 2  )  *! OC  .  ♦  I  T  R  *" 

ATaio(3>**SGMLSUS*1C0C.M»9US*1C00C0. 

CALL  f  I  L  E*  (  1  ) 

N  v-  s  G  sNMS  G*  1 

RETURN 

END 


I 
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S  l  o  »  0  U  T  I  N  E  ’  £  a  M  a  (  i  r  a  «  ) 
a CESSES  r‘R“INAL  RESPONSE. 

INv-L  .Of  IT 

fTTKCi  f*J  >.'/ Ij  II  T  ,(u!  .F  UI  S  ,NF  I  *  (2  E  )  ,f  IX  t  ;s  .  2S)  ,  ICL'R  « 
C  r«»CN  /MuiS/MR.TRESCiSi.TRVARMSA.NUttVCISI.IOKClS) 
C'«»CTi  /~0*=>tS/IScSE 

Cr»"CN  /,TAT/nmSG".NL.NR.N6,NTG,NMS& 

'ttTIU;  »15  RfSPONGEt 
iHlsm'tiai’j/KSrjc,..! 

1  n  t  -  »  T  a  :  J ( J ) - ( : M 1 R . 1 c  CO  00 . ) ) / 1 0 . •  .  5 

;  -  -L  =  sa*Hi  -  <  I5-F  i-TB«iCC000.>)/’  D00.-* 

51-c  1mT  =  *1COGCO.J-CImTi.*1000.)*  .5 


COLLECT  STATISTICS 

;EltI«TR.OT.w).ca.(jHTL.0T.0))S'*SG=N«SG*1 
TEST  I  (  BCS,°jNS£  *  E  A  0  AO  L  £ 
1E((ImTb.gT.O).ANO.(IhTL.OT.O))GO  TO  90 


FILL  -AT  CM  DOG  ON  This  MESSAGE 


J  =0 

»  =M  S  G 
CONTINUE 

:  =nf ino<  a,  s  ,1 ,  s .  .s  > 

;  F  <  I  .  E a  .  0 >  G 0  TO  e  0 
call  RMOvE  (  I  ,  T  ) 
if(atbis(2).eo.too.)go  to  n 

REMOVE  temporalLT  ant  MESSAGE  NO.  EVENT  NOT  „ATCh  OOG  TIMER 
E  VENT . 

call.  f:l£mo> 

J  =J  ♦  1 
GO  TO  1 
C  ON  T  INU  E 

1 fcj.eo.Ca  GO  to  EC 
DO  11  1  *  1  ,  J 

C  ALL  R  m  0  v  E (MFE  C !  )  ,3  ) 

Call  f  ILEMC1  ) 

CCNT  INuE 
Call  n  *Tm$  g  <  3  ) 

CCNT  INUE 
RETURN 

I»ESE*!»E5£*1 
IFU.Nt.OICO  to  1C 

RETURN 
E  NO 


Subroutine  watcmeioum) 

»ATCM  oog  EVENT  occurence  is  establishes. 
l‘((lMTR.GT.C).0R.(JHTL.GT.0n.Ni'SGANMSG«1 

CrLLECT  STATISTICS  on  NO  RESPONSE  FRO'  TERMINAL 

N  TO  ANT  C ♦  1 
CALL  MT«Si(i) 

"  E  T  J  R  N 

E  *.  0 


14? 


SUcRGCJl  INE  NO  IS  E  S ( IN ) 

?,Cd«»55.£S  MfiSE  EVENTS  AND  SCHEDULES  N  E  i  T  NOISE  EVENT  And 
0  U"  AT  i  0  N  • 

INCLUDE  IT 

111')0"1  '"u*,'^°ISE.NSL.US,15,,S«E.n<15).S*V.A(1S)  .  SL  N  G  (  1  S  >  ,  S  l  V  a  » 

CCNNON  / NU * E / I LPU S, I RSU S 
C  C  N  M  C  N  /STA1/NMSGh1nl,N»,N9,.NT0,N«SG 

NOISE  EVENT  START 


N  N  0  =  A  T  R I  3  ( 3  ) 

N -A  TR 1 g ( 2 ) -4 
A  --AT>  Ift  t  2) 

I'(<X.L£.LjC.).0P.(«.GT.<.;7.>)CALL  (  R  0  0  R  <  F  ) 
If(X.EG.»01.)v-10C3. 

1  F  <  x  .EG  .  02  >  r  = 1 0000 : . 

I  F  <  X  .EG  .03  .)  Y*  1  0  1C0C  . 


NAP*  EvEST  NESSAGE  On  BUS  (TILE  1)  AS  hIT 


CCN  T INu  E 

1  =N  f  IN  D  <22  5  ,  5  ,  1  ,  2  ,26  . 
I  T  <  I  .  E0 .0)  I  =N  f  ISO  <3  2  5 
I  EC  I  .EG.  0)  SO  TO  1C 
C  all  pvovE (1,1) 

CALL  f  ILEN  (  > ) 

GC  '0  1 
CON  T  1 N o E 


1,2,?*.) 


NAB*  and  RETURN  TO  file  1 


I  -N  F  E  (  J  ) 

I  »  <  I  .  EQ  .0)  GO  TO  20 
C  ALL  RNOvE  (1,7) 

«  t»  ig  ( j )  =a  tp  :e  ( 3  )  ♦* 
CALL  f  ilen (  1  ) 

GO  TO  ic- 
CONT  INUE 

GO  TO  (21, 22, 23), IN 
IloUS=IL3US -1 
N  L  1 N  L  *  1 
GC  TO  30 
I  B6US  =  1R6CI  S  *1 

N  »>N(  ♦  1 

GC  TO  3  C 


1  LoUS  =  ] L2U  S  *1 
I  »3uS  *  I  »E(J  S  *1 
CONTINUE 
I f <  < IL 3US ,G1  .C  ) 
CALL  STAT(  I  l  3  U  S 


A  NO  .  (  I  RE-U  S  .G  T 
1  Ro  U  S  ) 


0  )  )  N  9  *  N  9  ♦  1 


now  fob  noise  t£oninat  ion  event  creation 

Jt;  i|('M5-o’mn*T<SL‘,U<,,''0)  ’UV10<NN0)  ’NNC) 

*  TR  I  6  (  S  )  =NN0  ‘ 

C*vL  F  ILEN  (1  ) 


NEXT  NOISE  EvENT(T»IS  NU«oEP) 

5  tp  ib!^:i3£::i^,T<s"Ee,-(‘'N^)  .s-vap(nnc)  ,nno 

a  r  «  I  6  (  ?  )  =  s  s  h  * 

c  l  f : it*  ( i ) 


»  f  T  -j  {,  S 


all  : ;  s  e 
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si;6K  out  i  ne  so  :  sf  t  ( i  s  > 

PROCESSES  NOISE  T  i  fl  w  I  NA  T  I  1 N  EVENT.  R  E  M  C  V  E  S  NuIGE  FV^NT(^) 

s us ( es  > . 

INCLoOE  IT  „ 

C  c-'-CS  /*i;xT/NN013E,N$BUS(15>,SvtAN(1':)  ,  S“ V  A  *  (  1  S  >  .  S  U  N  G  (  is 

1(15) 

C  CM  M  Os  /"J*4/IL3US*I**US, 

ESC  NC1SE  EVENT 

or  TC (1  ,2 , 3  )  .  IN 
I  LdUS  2 lUoUS “T 

C  f  T  c  1C 

1 »oUS  s 1 R  dJ  S -1 
GC  TC  10 
1  Pcj  US  2  I  R  BU  $  - 1 
IlBUS2 IlbJS -1 
C  CN  T INo  E 

C  *IA  ST  AT  (  U5US  .  l^cUS  ) 

RETURN 

END 


FUNCTION  PN*T  («*£S,PV*R  ,1  ST3^) 

yCjNO  JNE9*  0E«:  'E  a  SUMBE  b  to  ADD  to  Tnq*  GIVING  NE<T 
EVENT  T  I  - e  .  I  S  I  R  "  »s  ASSUMED  As*  POSITIVE  INTEGER. 

i  =  ^  o  d  <  :$!?*,  s  >  *  i 

,  Ml  =  A  V  AB 
<  l  G  2 -* H  I 

RN»T=R*,EN*uNffi*(xiC  ,ih!,I) 

(.  c  T  oR  N 

END 


S  Ud  B  C  L  T  I  N  E  T«  *UP  (  I  TN  ) 

EDSTaS^JShES  TER“INAu  BECCVERT  F»0*  F  A  I  l  t  !  “ODE. 

C  C  *  *•  C  N  /'*U*S/NTB,TRES(1c).TevAH(1S).NU^Y(l5),ICK(1S) 
ir»(  itn)-io«(ITn)-i 

RETURN 

E  so 

GUeBGUT  I NE  T9 "ON  (  ITS) 

ESTAetIS«ES  TERMINAL  FAILURE. 

I SCLl  DE  r 

CC*MCN  ,T“f  AV(  1<  ),  T'«VA9(  \  5)  f  TL  Vifl  M5) 

C :-“CN  /  *U  x  c / s  T  c  ,  T  a i $  (1  c  )  ,  T  R  v  A  K  (  *  «  )  ,  N  U  ^  V (  T5>  ,  !  c  A  (  IS) 

I  0 a  (  i  T  N  )  * ! o *  (  ITS)  •  1 

SEiT  GG«N  EVENT 

at  4  ;fi(1  )sTS%.l«NJ?  (  T  **  f  A  S  (  ITS)  ,T,*vAfi(;TS)  ,  !TS) 

a  I  r  (  2  )  2 a  c C  .  •  I  t  n 
caul  f  :utM  ( 1 ) 

r  :  *  “  :  N  A  L  uP  EVENT  SCHEDULED  VMT 

A’fi  IcM)2’NO**RN*T(*lFSU  IN)  ,  ’iVAJI  I  T  N )  ,  I  T N ) 

a  tk  ic  (i )  •  i r », 

CALL  F  I  L t“  (  '  ) 


f  o  r  m 

f  S  l  V  A  o 
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S  l  =  pGuT INE  D«»i UV  <  ID"  > 

t  PROCESSES  DEMAND  "E  S  S  AG  E  AS  8  I VAL  ‘NO  SCHEDULES  N  £  »  T  DEMAND  “  E  S  S  A  G  E 

c  A  08  I  V  »L  . 

INCLi.DE  IT 

COMMON  /*Jl1  /N0*.C"<4  .i?>  .T-SENT (25) 

£  D£«ANO  MESSAGE  ID"  HAS  ARRIVED.  PUT  OX  OuE 

C 

ATRIfe(T>*0M(J,I3M> 

ATS 16<i) =  1 D" 

A  TR  16  <  2  >  *T  NO. 

C  SAVE  LENGTH, "ESEAGE  NU"E*£A,ASIv»L  T  I M E  ON  SUE 

C 

CALL  'IlEPIJ) 

C 

C  MjT  8.*.  NO.  ID" 

ATSIb(1)=tN0.*SN*T(Dv(1  .1 0") ,0"<3 ,ID">  , ID") 

A  T9  IE  (2  >  =1  3CC  .•  I  D  » 

CALL  F  I  L  £  M  <  1  ) 

RETURN 

£-.0 


SUBROUTINE  CTPuT 

c  Outputs  non-gasp  information  about  the  effect  of  pus  noise. 
c 

INCLUDE  IT 

Common  /"UXPEC/IPESE 

CC""ON  /ST  A  1/N.MSGh.  NL ,N°,  N6,  NT0,N"SG 

•  o  ;  T  E  (npsn  T  ,100)  IEESE  . 

ICC  F CS" ‘T ( ■ 1NuvB E»  OF  vALIC  PEA0*6L£  RESPONSES  LOST  To  TIMEOUT  *  ’  ,  I  9  ) 
.PI  TE  (NPSNT  ,1 01  INTO 

101  FOS"aT  (  *0NUM9ES  OF  T1"E0uTS  *  '  .  !  9  > 

. SI T  £  (NPRNT  , 1 C2 ) NL , NR ,NP 

ICE  F  C R  "  AT  C'ONu  "6  E  R  OF  HITS  ON  left  9US  *’,19, 

1  •  S  I  GMT  BUS  -•  ,  I  9 , 

2*  60  Tm  eus  ES  =  *  ,  19  ) 

.c!TE(npsnt ,1C3)N"SG 

1  C  3  FCBNAT  (  'OTOTAL  NUMBER  OF  MESSAGES  SENT  =  *  ,19) 

.pite(nprnt,1:a)N"SGh 

ICS  f OA"AT ( 'GTOTAL  number  of  MESSAGES  "IT  ON  AT  LEAST  ONE  BUS  »’,I9) 
RETURN 
END 


H7 


Sur- soutike  a«jv*lcton», tons, clock, tclcc,!;, tig, its, sc:L.'«si,N> 

ClCCk*TON* 

SOIL*  SOSL- (ClOCk-TOlOC >*IQ 
TOta c »  c  loc  * 

TIC*  T  13  -  1  . 

18*  18*1 
C  »LL  SAN  8  ( N  ,  8  ) 

TON**  CLOCK ♦(-£ IP( • *l OG ( 8 )  ) 

IT  UTS  •  N  E  .  C  .0*.  IC  . G  T  .  1)  8ETG9N 
TONS*  CLOCK 
8  £ TuSN 
£N  0 


SL?SOuTIN£  SEBVCTOnS.TOSC, CLOCK, TOLOC, 13, ICS. S03l,SOST,EiB$ 
CLOCK*  TONS 
C*LL  8  AN  D ( N  .  8  ) 

S  E  8  V  T  *  -E KPS**LOG  ( 8 ) 

TONC*  CLOCK-SEBvT 

SOST*  S0STK5E8VT 

SOQL*  SOCL* (CLOCK-TOLCC >•! a 

T  0  L  Q  C  *  C  LOCK 

13*  1 8-1 

ITS*  1 

TONS*  8998. 

b  £  tub  n 
END 


N  ) 


SU-SCuTINE  0£P»ST(T0N0, TONS, CLOCK, 15, ITS) 
CLOCK*  TONO 

it  (i-  .gt.  w)  tons*  clock 

TOND*  89899 • 

ITS*  0 
»E  Tusn 
END 


SJPBOoTJNE  e»N0(N,8) 
K*  375227 
N  *  N  •  K 
5  N  »  N 

e*  8%/Jt J597JJ3J7. 
s  *  »3S  <»  ) 

8  E  tyB,, 

ESC 
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SIMSCRIPT  II  Simulation  Example 


- 1 : 


S  E  s  V  E  s  *E  ;>  -  t  S  S  ^  j  ? 

5  an:  s  e  »  k  ;  c  s  t  ;  <•  £  j < 


sct:c  es  :».ciuOE  ;<>l.  oepaptuse  »*.?  stop. simulation 
£ *- t  ; t  ; e. s 

f » e  ; »  «  e : s»g  e  'ii  belong  io  f"£  sue je 

:ee:-.e  s .  a . : ce . ¥i » e  .  aoEuE  .change  ,  s.-.iueue  »s  vasia=.e 
:  e  » :  n  s  5'atus  as  a •<  :  n  t  e  g  e  «  v  « »  i  a  s  l  e 
:  e  e  ;  n  e  : ; s  ’c  >e»n  : 

;  £  f  :  \E  "i,5t  to  r£  an  1 

OEEINE  tg’al.Entsv  AS  AN  I  n  t  £  g  £  a  v  a  a  1  Ag  l£ 

Ta£  S  T  S  T  £  *"  O.NS  T  n  £  aueuE 

Tal*»  NAJ.auEUE  AS  The  rA*iru*  OE  N.auEuE 
accumulate  jt:l:;ation  as  t«e  a  ve  ’ age  oe  snus 

Esa 


i'.alMIH'  aisisialiEo  . :  t  £ 
*  c ;  a -6 :  -u * s i  .  ;t  n  «i  an  ■. 


"E  AN 


.  N 

SCnEiULE  A  a  s  c  ;  v  a  l  :n  Exponential. f(S. 0.1)  ¥]  NlJi :  s 
SCnEautE  *  S  TOP  .  S  I'ULA  r  I  IN  a  hOupS 
s: AST  SIMULATION 


Event  us;»h 

SCnECulE  a  apo;val  In  EaPCnEnT’al.eiS.G.I)  'INl'EE 

C  s  E  a  T  £  t  "ESSAGE 

: '  status  *  aus’  os  n.jueue  > 

l£T  Su'.auEuE1  S  U' .  3U  EU  £•  i  T  I  *£  .  v  •  1  UE  0  £.; -A  NGE  GuE  u£ 

‘  I  LE  *ES3‘GE  IN  GUEUE 
L  £  T  TCTA„.£nTSi«TOTAl.ENTSY«1 

let  auE'jE.CiANCE1  T  I“E  .»  "Ha;. 

»  E  T  u  P  N 
ELSE 

le  s t  a l  :  ce  .  t ;•  e «  e  apcne >.t  :  a l. « ( s .  c, ! ) 

s:“E:^l£  A  jiaaS’lEI  in  SESVICE.TI'E  “Inl'TES 
W£T  S  7  a  7  *  S  =  fuST 
=  £*-  =  ’. 


» £  *  s  i »  tj  5  *  idle 

R  E  Y  u  R  N 
E  l  S  £ 

»£T  Su».iuEuE*  Su»  .4U  tut  ♦  l  T  1  ■•£  .  v*T4fc  :  . -GUtUE  ,C 

«£*OVi  fUST  »£SSaGE  mo*  SUEJE 
U'T  3uEgE .CHANGE*  TX*e.rf.i44j. 

StSToO’  *ESS  »G£ 

Li’  S  E  RV  I  CE.Ti-e-  Ei'ONiitlH.'d.C,!) 

SC-ECulE  a  0EP»8Tu«E  IN  SE  «V  ICE  .  Tt '£  MINUTES 

Sf'ljJI, 

END 


EVENT  SroP-SlMLLiTICN 

CET  A  V  £  .GUEUE, LENGTH*  SUM .auEUE / < TJ -e  .V »1 440  .  ) 

S  T  *  8  T  HE.  PAGE 
S*  I  0  5  LINES 

PRINT  7  1 1  N  E  «  I  T  r*  *  VE.  CUE  UE.  LENGTH,  UTILIZATION. 
UNO  TOT»l.£NTpt  ThuS 

I  -  U  L  *  1  *  g  N  STATISTICS 

t  V  £  p*GE  -U£UE  lEnCTn  ♦ 

UT : L 12  »T ION  ...»  “INUTES 

*»* . SUcUE  ••» 

T0T*l. ENTRY  ...  MESSAGE  ENTRY 

5'Qp 


V 


1  50 


GASP  IV  Simulation  Example 


?  c  i  r  ?  t  -  >  0  )  «! 

1  '  PI  DC 

M  ►  E  N  '  1  C S  '  t  T  (  1  ) 

ccm"cn  ;:t  t  cl  oc : ) 

f  :  v  »l  s  n;  i  (ss[t(i>,csmm.  > 

cr  "“cn  /  gc  C'*-.  /  i,'M  i  ’:o  ,nti  ’rn  ."wot con, 

i,\N«CC  .KM'T  ,NM1  L  ,M.  1  i  f  ,  kP  BM  ,FP  K  >■  I  '  .  ,  I,  )  ,  1  I,  C  *  i 

f,  7  T  £  f  c,  ,  T  1  C  l  o  .  7  1  r  ]  N  ,  T  1  0  I  e  <  2  5  )  .  1  T  s  f  I 
Cpo-CK  /ut  0»i  /  ttnoc)lOtUHC),MluL,C'KOk,!SEfS,t'L»t(5C).Mi.<i., 
&NNE5t.NNESS,NNEC1.SSntC>.SSLnCv>.71NE> 

CCh"CN/GCCh'/  AAEOS,C7"AX,CTH]n,07S»V,I1TES,LLE«i<.L.SAV,ILSEV,0OE 

Epfi  TiE$,  n  s*v 

crp-oN/GCCE"^/  ctolt  no  <  ?  s )  ,  «*>.  i  d  <  2t  >  , i i co d  , ;  ;  t  a  p  <  i '  >  ,  j  j  t  e  l 

E<5C'0,vlA?C<;E.2>.LLA6K<25,?>,LLArPni,?>.LLAE-T<?',2),LLPH:n:),LL 
!.PLC(ir).LLPLE,l.LSUF(m,LLST»(1C),«MP'ti.''MCEL(?0,..  NCL7,NNH1S,'.ML 
ET,SN0TS(1C),NSST4,NNV*(!(1C),PPhI(1G), PPL  0<1C) 

CC*"'0*./C.C0>’t/  nEvT,]ISE0(t),JJ9EG,JJCLO."P».  m.'hon.nnaheeji.nnc' 
',;,NND»y,NNP’.NNSE7,NNPRJ,NNP0‘'.NNPNS,NNBUN,NNE7B,NNv;,s$ECC<t> 
CC>'“CL/CCC''t/EE’»inoC),Il»yE«nCC),KBM<(100>,*E,n*C(1PC).C(,''I“MvC> 

E,ssoev(?5,5),5$T?v<?5,t),vvNano;) 

CSC 


c*  • 

c 

c 

r  t  IS  F S 0 G  ®  A  * 

:  n  c  l  t  d  e  :  t 

c 

c 

c 

IMlUtUE  CAPO  o  E  0  D  E  c  VALUE,  n  C  o  p  o  and  p  f<  1  n  T  t  e  value,  n  p  o  n  *  . 

N  CP  DP  -  5 

S  pBM  Bt 

C*LL  gasp 

S  TGP 

END 

SUdPGUTJNS  FVVTS( 
i  N  C  L  c  C  £  IT 

1 1 ) 

c 

c 

c 

c 

c 

J '  : <  iv  ? ;  e  v  t  m 
:  <  :  >  it  7  c  eveu 

1‘  I  /  It  vt  { v  E \ T 

oooi v al  -ill  cctuo. 
b  E  C  !  N  SERVICE  .ill  OCCjo. 

EVEM  FINISH  SERVICE  »  i  L  L  LCCuo. 

■  r  T  r  (  ;  *  »  *  .  l.  >  ■  i 

<  :  [‘.i 

i  r  7  L  t  >. 

C  C  ‘  4  L  E-  E  c : 

‘  e  :  i  o  >. 

**  -  E  't  l  FINS 

0  E  1  t  o  N 

e  n ; 


G PS S  Simulation  fxample 

l.V>t  NAMl  »  Y  1  SfcL  HP  A  NOP  Mf  AN  MOP  (U  M  A  N  > 


V 


lc3 


cn 

O  — ' 


WO  uj 

t 


UJ  > 

£  a 


cr 

UJ  o 
>  2 
cr  < 

-oin 

u-  2 
— »  < 

O  uj 
2E 

on  X 

UJ  •— I 

13  3  2 
uj  ^ 
OQU 
O  UJ  H 

uD  I 
-J  Q  r- 

o  — 

2  a:  i 
•— •  ►- 
wtoo 

a:  o  r- 
O  3 
—  >■  X) 
-J  — • 

£<a: 
<  — •  ►- 
a:  ►—  jo 
o  2 

O  UJ  O 

ct  2 

a.  O  >- 

C.  -j 

2  x  < 

Oui« 

*-  -u  2 
<  <  -u 
-j  >  2 

3  —  0 
3E1  cr  CL 
—i  a:  x 

«ff  L- 

*  *  » 


o 

s. 


d 

u 

2 


3 

£ 

Uj  UJ 

x  ^  £ 

3-0  < 

d  2 


rsg 

O  r-  cn 
v)  •  • 

•  ru^cc 


o 

OQf^.  O 
u~*  JOOO 


o  K*1 

OCO^ 


o 

oo 

vcooo 

•  •  •  • 


u-\  O 

Ln  >3  O 

•  •  • 

•  r~  (\j*G 


CD 
w-\(> 
’0  33  0  0' 


OjoD*- 

<\j  •  •  • 

•  r-  f\jjl 


u'*'  o 

r\jr\jpu  j>  o 


2r»  (  i  • 

o:  •  t— 


r\j 

ac  'Nio 

-2t-N>  O 

— j  C  •  •  •  • 

£  — 


jO  3  O  •  • 


2 


fO 


O 

CO 

-J 


K» 

UJ 

UJ  < 

< 

UJ 

v02 

cr 

Uj 

uj  2 

<  — > 

3 

< 

uj  3: 

2 

u- 

—  > 

jq: 

UJ 

3 

~u  O 

-j  uJ 

“ 

CJ 

a/*>  < 

cx  »- 

O 

T“ 

nj 

-t  LT 

*“  A— 

r— 

<  o 
*-  2 
uo  ^ 


V 


1  c4 


■''lotting  Pout  inns 


D!^ArSI0N  G  Li  E  (  1  0  2  )  ,  USEDC1C2) t  FREE C 102) ,Ti*e < 102) 

N  =  i  n  C 

X^AVs-1#£f3^ 

DC  io  i , ICO 

11=1-1 

T  I  M  E  (  I  )  :  1  .  o  ♦  .  1  *  I  1 

X*AV  =  A*'"AX1<XKAX,TIME(I)) 

1  l'  C  CN  T  I  MiE 

DC  7C  I  -  1  1u0 

RfAr'(c  ,  ?  5  )  L  U  E  (  I  )  ,  U  S  E  T  (  I  )  ,  F  R  E  E  (  l  ) 

2  5  F  C  fi M A  t ( i x , i i c  .  4  ) 

3  J  CONTINUE 

C  «L  L  FFFC(TIt£,fSEEtN,XI'AlO 
DC  c  C  I  =  1  ,  1  C  L 

«  s I T E  ( D , u 0  )  I,TIME(I),OUE(I),  USED<I),  f  R  E  E  (  I  ) 

AC  FORMAT  (2*,IZ,4(5xfEP.4)) 

5  0  CONTINUE 
S  T  0  0 
E  N  D 


SlE;0GUT!NE  SARD  (XX,YV.Hty»«X) 

P  1 1»  r  N  5  J  o  N  >x(102),yym62) 

XCRO-1  .  r 

Y  C  R  0  -  1  .  7  5 
x  $  2  -  1  1  t  v  t 

Y  S2  -c  .  5 

CALL  PLCT'(XSZ,VS2,C,1) 

CALL  L  !  N  E  W  T ( - 1  ) 

CALL  PLOT ( 1  .  ,  1  .  ,-3) 

CALL  P  L  0  T  (  X  S  2  ,  0  C,  ) 
call  PL0T(G.L,YSZ,2) 
call  plot(0.l,C.0,2) 

CALL  PLOT ( XCRG  ,  YORG  ,  -3  ) 

X  CCP  =  c  . 

Y  C  0  R  -  r  . 

K  =  1 

CALL  SCALE  (  X X  ( K  )  ,  x C Cfi  ,  N  ,  1  ) 
call  scale  (YY(x),yC0R,n,1) 

M  -  N  ♦  1 
N  2  -  N  ♦  2 

xx (n2)-xvax/xccp 

Call  a»is(0.c.0.C,5hFREE  ,*5,YcrR,9  0. 
CALL  AX!L(C.L,C»C>AHTI‘,E  ,“4,XCOP,r,0 
CALL  LINEwT(L) 

call  LINE(XX(K),YY(K),N,1,Cf1?,.07S) 
CALL  P L  0  T ( 0  .  I , C . 0 , V C 9 ) 

RETURN 
E  N  D 


« Y Y ( N1  )  , Y Y  <  N  2  )  ) 

xx(M),xx(N2)) 
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